VBA封装为DLL及调用

VBA封装为DLL及调用使用程序：1、MicrosoftOfficeExcel20032 、MicrosoftVisualBasic6.0案例：在工作表的

C1

单元格得出

A1

单元格

+B1

单元格的值。设计的

VBA

代码：

SubTest()

OnErrorResumeNext Range("C1")=Cells(1,1)+Cells(1,2)EndSub 第一部分、使用VB6.0制作DLL文件一、启动VB6.0，新建一个ActiveXDLL工程：二、引用：在VB中对Excel的引用不同版本的EXCEL在“引用”窗口里显示的版本号也不同：EXCEL2000（MicrosoftOffice9.0）EXCEL2002（MicrosoftOffice10.0），即ExcelXPEXCEL2003（MicrosoftOffice11.0）EXCEL2007（MicrosoftOffice12.0）EXCEL2010（MicrosoftOffice14.0）EXCEL2013（MicrosoftOffice15.0）三、修改ActiveXDLL的工程名称和类模块名称四、编写代码：在代码窗口输入代码， 过程名称为 Test：SubTest()OnErrorResumeNext

DimVBt,YB

'定义变量VBt

SetVBt=GetObject(,"Excel.Application")

'使VBt

表示为

EXCEL

对象

SetYB=VBt.ActiveSheet'使YB表示为EXCEL的当前工作表'注意要在对象前加上 YB变量以表示是 EXCEL当前工作表的对象 YB.Range("C1") =YB.Cells(1,1).Value+YB.Cells(1,2).ValueEndSub五、设置工程属性 (为使开发的程序更规范，可以对工程属性加以描述【非必要设置，可以省略】 )： 六、保存工程、测试、生成DLL文件：1、保存工程：保存本工程以作为将来修改代码和升级程序的需要；2、测试工程：执行快捷工具栏上的“启动”按钮，检查是否存在错误；3、生成DLL文件：制作DLL文件。第二部分、调用 DLL文件一、在VBE中调用DLL文件调用DLL文件，要分两步走：先注册DLL，再引用DLL。1、注册DLL（使之放在可引用的列表上）：注册DLL也可以使用代码来做，但那样比较复杂，也存在很多问题，建议一般使用手工来注册。（这里应该先设计好DLL文件放在硬盘的位置，因为后面引用DLL文件的代码也应该是指向这个位置的。） 先打开EXCEL，再打开“VisualBasic编辑器”2、引用DLL（这样每次打开打开文件时，就不必再去那个引用列表里打个勾了）① DLL文件放在与 EXCEL文件同一个文件夹内在 ThisWorkbook 中添加如下代码： PrivateSubWorkbook_Open()' 打开文件时加载要引用的 DLL文件shell"Regsvr32/s"&Chr(34)&ThisWorkBook.path&"\VBADLL.dll"&Chr(34)EndSubPrivateSubWorkbook_BeforeClose(CancelAsBoolean)'关闭文件之前卸载引用的DLL文件shell"Regsvr32/s/u"&Chr(34)&ThisWorkBook.path&"\VBADLL.dll"&Chr(34)EndSub'/s 参数是防止出现确认窗口；/u参数为取消引用。②DLL文件放在固定文件夹内，如果你有多个 XLS文档需要使用到同一个 DLL文件，但这些 XLS文档又不可能都与DLL文件放在同一个文件夹， 则需要将 DLL文件放置到一个固定文件夹，这样，只需要将上面的代码ThisWorkBook.path&"\VBADLL.dll" 换成一个固定位置即可。注意：有时间可能出现某些错误，如提示“变量类型未定义”等，可能是引用后改变了文件的位置或改变了文件的名称，即使再重新再改回来也可能会出现这些问题，所以，在正确注册及引用以后，最好不要再去修改这个 DLL文件。如果出现问题，重新注册一次，保证注册的 DLL文件的位置正确即可。二、新建一个模块，输入调用 DLL文件程序的过程：SubDLLtest()

DimABCAsNewVBAtest

'定义ABC

为新类，即为

DLL

文件中的类模块

VBAtestABC.Test

'调用

DLL

中提供的过程，来完成原来在

VBA中的功能，起到隐藏代码的效果 SetABC=Nothing '释放类资源 EndSub三、在工作表中运行 DLLtest宏即可实现调用： 综上所述，感觉封装