https://blog.csdn.net/laoyebinzh-cnhttps://blog.csdn.net/https://blog.csdn.net/laoyebin/article/details/9097421https://blog.csdn.net/laoyebin/article/details/9097421laoyebinFri, 14 Jun 2013 19:23:06 +0800https://blog.csdn.net/laoyebin/article/details/8648767https://blog.csdn.net/laoyebin/article/details/8648767laoyebinThu, 07 Mar 2013 23:37:29 +0800https://blog.csdn.net/laoyebin/article/details/6187523https://blog.csdn.net/laoyebin/article/details/6187523laoyebinWed, 16 Feb 2011 11:29:00 +0800 
最近整理硬盘文件，发现一个Outlook里的全球通讯录到Excel的代码，但不知道这个文件是什么时候下的了，谨向原作者致敬。
注意：
1、这个代码是写在Excel的模块里的。
2、通讯录中联系人个数多的话，可能时间有点长
 
Const CdoAddressListGAL = 0 Const CdoUser = 0 Const CdoRemoteUser = 6 #Const EarlyBind = True Sub App]]>https://blog.csdn.net/laoyebin/article/details/6177663https://blog.csdn.net/laoyebin/article/details/6177663laoyebinThu, 10 Feb 2011 20:04:00 +0800 方法一：VBA代码法
新建一个文件，然后拷贝以下代码到VBA模块中，运行代码，选择含有Flash的Excel文件确定，即可获取swf文件。
 
 
Sub ExtractFlash() Dim tmpFileName As String Dim FileNumber As Integer Dim myFileId As Long Dim MyFileLen As Long Dim myIndex As L]]>https://blog.csdn.net/laoyebin/article/details/5999247https://blog.csdn.net/laoyebin/article/details/5999247laoyebinWed, 10 Nov 2010 10:35:00 +0800Excel自带的CONCATENATE函数虽然能连接文本，但却不能连接内存数组，论效果还没&这个连接符方便，实在是Excel里的第一大鸡肋。

所以今天就介绍给大家我一直在用的文本连接的自定义函数–contxt 。
 
Function ConTxt(ParamArray args() As Variant) As Variant Dim tmptext As Variant, i As Variant, cellv As Variant Dim ce]]>https://blog.csdn.net/laoyebin/article/details/5848359https://blog.csdn.net/laoyebin/article/details/5848359laoyebinSun, 29 Aug 2010 21:47:00 +0800private void button1_Click(object sender, EventArgs e) { Excel.Range rng = null; rng = ((Excel.Range)this.Columns[1]).ColumnDifferences(Range["a2"]); rng.Select(); }  
 
这个方法其实就是调用了F5定位里的columndifferences，但两者有一点不同的地方：定位里的C]]>https://blog.csdn.net/laoyebin/article/details/5794814https://blog.csdn.net/laoyebin/article/details/5794814laoyebinSat, 07 Aug 2010 11:05:00 +0800Excel里有Vlookup函数，查找匹配数据非常方便，在VBA里，也可以用worksheetfunction.vlookup方法来调用，今天我介绍一个另一种使用字典(dictionary)+数组的方法，速度也非常快。
 
数据源图片：

 
代码：
Sub test() Dim data, temp, arr Dim d Dim i&, k& Set d = CreateObject("scri]]>https://blog.csdn.net/laoyebin/article/details/5767581https://blog.csdn.net/laoyebin/article/details/5767581laoyebinMon, 26 Jul 2010 23:21:00 +0800 上次写一篇文章，不小心开了全角，结果文章编辑完，惨不忍睹，然后就想自编个宏一次性转换。起先想到的当然是像Excel一样使用ASC函数，但发现VBA的ASC不是全半角转换的功能，晕死，只能网上找答案，终于，找到一个狼版以前发的回帖，完美解决。
代码如下：Sub SBC2DBC() ActiveDocument.Content.CharacterWidth = wdWidthHalfWidth End Sub  作者：laoyebin(Paladin.lao)博客园出处：h]]>https://blog.csdn.net/laoyebin/article/details/5767577https://blog.csdn.net/laoyebin/article/details/5767577laoyebinMon, 26 Jul 2010 23:20:00 +0800 Sub ImportVFPData() Dim i%, sql$ Dim cn, rst Set cn = CreateObject("adodb.connection") Set rst = CreateObject("adodb.recordset") Dim sql As String cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='dbase 5.0]]>https://blog.csdn.net/laoyebin/article/details/5741671https://blog.csdn.net/laoyebin/article/details/5741671laoyebinSat, 17 Jul 2010 13:07:00 +0800 Sub ExportChart() Dim myChart As Chart Dim myFileName As String Set myChart = Sheet1.ChartObjects(1).Chart myFileName = "myChart.jpg" On Error Resume Next Kill ThisWorkbook.Path & "/" & myFileName myChart.Export Fi]]>https://blog.csdn.net/laoyebin/article/details/5732682https://blog.csdn.net/laoyebin/article/details/5732682laoyebinTue, 13 Jul 2010 20:22:00 +0800以关闭Winrar.exe为例，代码如下：
Sub closeWinrar() Dim oWMT As Object, oProcess As Object Set oWMT = GetObject("winmgmts://") For Each oProcess In oWMT.InstancesOf("Win32_Process") If LCase(oProcess.Name) = "winrar.exe" Then ]]>https://blog.csdn.net/laoyebin/article/details/5656858https://blog.csdn.net/laoyebin/article/details/5656858laoyebinTue, 08 Jun 2010 22:09:00 +0800private void button1_Click(object sender, EventArgs e) { Excel.Shape lineA = Globals.Sheet1.Shapes.AddLine(25, 140, 495, 140); Excel.Shape lineB = Globals.Sheet1.Shapes.AddLine(495, 140, 495, 305); Excel.Shape lineC = Globals.Sheet1.S]]>https://blog.csdn.net/laoyebin/article/details/5652401https://blog.csdn.net/laoyebin/article/details/5652401laoyebinMon, 07 Jun 2010 10:42:00 +0800https://blog.csdn.net/laoyebin/article/details/5651847https://blog.csdn.net/laoyebin/article/details/5651847laoyebinSun, 06 Jun 2010 23:06:00 +0800Sub zipFile() Dim winrarPath$, fullname$, filename$, filePath winrarPath = "c:/program files/winrar/winrar.exe a -afzip " filePath = Application.GetOpenFilename If filePath <> False Then fullname = StrReverse(Split(StrRev]]>https://blog.csdn.net/laoyebin/article/details/5645858https://blog.csdn.net/laoyebin/article/details/5645858laoyebinThu, 03 Jun 2010 22:06:00 +0800Sub test() Shell "cmd.exe", vbNormalFocus SendKeys " ping mrvsto.com" & "{ENTER}", 1 End Sub  ]]>https://blog.csdn.net/laoyebin/article/details/5638235https://blog.csdn.net/laoyebin/article/details/5638235laoyebinMon, 31 May 2010 23:59:00 +0800https://blog.csdn.net/laoyebin/article/details/5568653https://blog.csdn.net/laoyebin/article/details/5568653laoyebinFri, 07 May 2010 23:47:00 +0800https://blog.csdn.net/laoyebin/article/details/5564664https://blog.csdn.net/laoyebin/article/details/5564664laoyebinThu, 06 May 2010 21:10:00 +0800https://blog.csdn.net/laoyebin/article/details/5540730https://blog.csdn.net/laoyebin/article/details/5540730laoyebinWed, 28 Apr 2010 23:12:00 +0800https://blog.csdn.net/laoyebin/article/details/5522211https://blog.csdn.net/laoyebin/article/details/5522211laoyebinFri, 23 Apr 2010 20:47:00 +0800