VBA封装为DLL及调用

1、V B A 封 装 为 D L L 及 调 用使用程序：1、MicrosoftOfficeExcel20032、MicrosoftVisualBasic6.0案例：在工作表的 C1单元格得出 A1单元格 +B1单元格的值 设计的 VBA代码：SubTest() OnErrorResumeNextRange("C1")=Cells(1,1)+Cells(1,2)EndSub 第一部分、使用 VB6.0 制作 DLL文件一、启动 VB6.0，新建一个 ActiveXDLL 工程：二、引用：在 VB中对 Excel 的引用不同版本的 EXCEL在“引用”窗口里显示的版本号也不同：

2、EXCEL200(0 MicrosoftOffice9.0)EXCEL200(2 MicrosoftOffice10.0)，即 ExcelXPEXCEL200(3 MicrosoftOffice11.0)EXCEL200(7 MicrosoftOffice12.0 )EXCEL201(0 MicrosoftOffice14.0 )EXCEL201(3 MicrosoftOffice15.0 )三、修改 ActiveXDLL 的工程名称和类模块名称四、编写代码： 在代码窗口输入代码，过程名称为 Test ：SubTest()OnErrorResumeNextDimVBt,YB' 定义变量

3、 VBtSetVBt=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文件：

4、 1、保存工程：保存本工程以作为将来修改代码和升级程序的需要； 2、测试工程：执行快捷工具栏上的“启动”按钮，检查是否存在错误；3、生成 DLL文件：制作 DLL文件。 第二部分、调用 DLL文件 一、在 VBE中调用 DLL文件 调用 DLL文件，要分两步走：先注册 DLL，再引用 DLL。1、注册 DLL(使之放在可引用的列表上)：注册 DLL也可以使用代码来做，但那样比较复杂，也存在很多问题，建议一般使 用手工来注册。(这里应该先设计好 DLL文件放在硬盘的位置，因为后面引用 DLL文件的代码也 应该是指向这个位置的。)先打开 EXCE，L 再打开“ VisualBasic 编辑器”2、

5、引用 DLL （这样每次打开打开文件时，就不必再去那个引用列表里打个勾了） DLL 文件放在与 EXCEL 文件同一个文件夹内 在 ThisWorkbook 中添加如下代码：PrivateSubWorkbook_Open()' 打开文件时加载要引用的 DLL 文件 shell"Regsvr32/s"&Chr(34)&ThisWorkBook.path&"VBADLL.dll"&Chr(34) EndSubPrivateSubWorkbook_BeforeClose(CancelAsBoolean)' 关闭文

6、件之前卸载引用的 DLL 文件shell"Regsvr32/s/u"&Chr(34)&ThisWorkBook.path&"VBADLL.dll"&Chr(34)EndSub '/s 参数是防止出现确认窗口； /u 参数为取消引用。 DLL 文件放在固定文件夹内，如果你有多个 XLS 文档需要使用到同一个 DLL 文件，但这些 XLS 文档又不可能都与 DLL 文件放在同一个文件夹，则需要将 DLL 文件放置到一个固定文件 夹，这样，只需要将上面的代码 ThisWorkBook.path&"VBA

7、DLL.dll" 换成一个固定位置即可。注意：有时间可能出现某些错误，如提示“变量类型未定义”等，可能是引用后改变了文件的 位置或改变了文件的名称，即使再重新再改回来也可能会出现这些问题，所以，在正确注册及 引用以后，最好不要再去修改这个 DLL 文件。如果出现问题，重新注册一次，保证注册的 DLL 文件的位置正确即可。、新建一个模块，输入调用 DLL 文件程序的过程：SubDLLtest()DimABCAsNewVBAtest' 定义 ABC 为新类，即为 DLL 文件中的类模块 VBAtestABC.Test' 调用 DLL 中提供的过程，来完成原来在 VBA 中的功能，起到隐藏代码的效果SetABC=Nothing' 释放类资源EndSub三、 在工作表中运行 DLLtest 宏