VBA封装为DLL及调用

1、VBA封装为DLL及调用使用程序：1、Microsoft Office Excel 20032、Microsoft Visual Basic 6.0案例：在工作表的C1单元格得出A1单元格+B1单元格的值。 设计的VBA弋码：Sub Test()On Error Resume NextRange(C1) = Cells(1, 1) + Cells(1, 2)End Sub第一部分、使用VB6.0制作DLL文件一、启动VB6.0,新建一个 ActiveX DLL工程：二、引用：在VB中对Excel的引用不同版本的EXCELS “引用”窗口里显示的版本号也不同:EXCEL200(0 Microso

2、ft Office 9.0)EXCEL200(2 Microsoft Office 10.0),即 ExcelXPEXCEL200(3 Microsoft Office 11.0)EXCEL200(7 Microsoft Office 12.0)EXCEL201(0 Microsoft Office 14.0)EXCEL201(3 Microsoft Office 15.0)三、修改 ActiveX DLL 的工程名称和类模块名称四、编写代码：在代码窗口输入代码，过程名称为 Test ：Sub Test()On Error Resume NextDim VBt, YB 定义变量 VBtSet

3、VBt = GetObject(, Excel.Application)使 VBt 表示为 EXCEL寸象Set YB = VBt.ActiveSheet 使YB表示为EXCEL勺当前工作表注意要在对象前加上YB变量以表示是EXCEL!前工作表的对象YB. Range(C1) = YB.Cells(1, 1).Value + YB.Cells(1, 2).ValueEnd Sub五、设置工程属性 （ 为使开发的程序更规范，可以对工程属性加以描述【非必要设置，可 以省略】 ） ：六、保存工程、测试、生成 DLL 文件：1、保存工程：保存本工程以作为将来修改代码和升级程序的需要；2、测试工程：执行

4、快捷工具栏上的“启动”按钮，检查是否存在错误；3、生成DLL文件：制作DLL文件。第二部分、调用DLL文件一、在 VBE中调用DLL文件调用DLL文件，要分两步走：先注册 DLL,再引用DLL。1、注册DLL（使之放在可引用的列表上）：注册DLL也可以使用代码来做，但那样比较复杂，也存在很多问题，建议一般使用手工来 注册。（这里应该先设计好DLL文件放在硬盘的位置，因为后面引用 DLL文件的代码也应该是指向这个位置的。）先打开EXCEL再打开“ Visual Basic编辑器”弓in * 冃却IJZ辔qj囲丈挣聊却 TiEal JfcAi!i=6u IA押IJCPAff.b 円、Bt HE)去

5、扛1引用i*n m w呗*i HftqpSJTffiSQlIrftffilD(ri： |Z LtLA* 田：1ruul L*fL? Ffl*1 kresaEt 民 1H 0OLE jMahg-li 利iv DfC* - fl 4W P； 4R： wf 11 kJ r licrectEt Fwm f Objr Lilhrar 啊叶j*clLAfrun cmz力mi l 叫 r?ptTO总“眶”杜曲门：D宅二-虑丁亠厶jJFq 门 讥IWi.e标Kbku找列对丄文件存放的恆置a;看垂驱蹬餉钢2、引用DLL(这样每次打开打开文件时，就不必再去那个引用列表里打个勾了) DLL文件放在与EXCEL文件同

6、一个文件夹内在ThisWorkbook中添加如下代码:Private Sub Workbook_Ope n() 打开文件时加载要引用的 DLL文件 shell Regsvr32 /s & Chr(34) & ThisWorkBook.path & VBADLL.dll& Chr(34)End Sub关闭文件之前卸载引用的Private Sub Workbook_BeforeClose(Ca ncel As Boolea n)DLL文件shell Regsvr32 /s /u & Chr(34) & ThisWorkBook.path & VBADLL.dll& Chr(34)End Sub/s

7、 参数是防止出现确认窗口； /u 参数为取消引用。 DLL文件放在固定文件夹内，如果你有多个 XLS文档需要使用到同一个DLL文件，但这 些XLS文档又不可能都与DLL文件放在同一个文件夹，则需要将 DLL文件放置到一个固定 文件夹，这样，只需要将上面的代码 ThisWorkBook.path & VBADLL.dll 换成一个固 定位置即可。注意：有时间可能出现某些错误，如提示“变量类型未定义”等，可能是引用后改变了文 件的位置或改变了文件的名称，即使再重新再改回来也可能会出现这些问题，所以，在正 确注册及引用以后，最好不要再去修改这个DLL文件。如果出现问题，重新注册一次，保证注册的DLL文件的位置正确即可。二、新建一个模块，输入调用 DLL文件程序的过程：Sub DLLtest()Dim ABC As New VBAtest 定义ABC为新类，即为 DLL文件中的类模块VBAtestABC.Test 调用DLL中提供的过程，来完成原来在 VBA中的功能，起到隐藏代码 的效果End Sub三、在工作表中运行 DLLtest 宏即可实