VBA 封装为DLL 及调用
使用程序：
1、M icrosoftOfficeExcel2003
2、M icrosoftVisualBasic6.0
案例：在工作表的C1单元格得出A1单元格+B1单元格的值设计的VBA代码：SubTest()
On ErrorResumeNext
Ran ge("C1")=Cells(1,1)+Cells(1,2)
EndSub
第一部分、使用VB6.0制作DLL文件
一、启动VB6.0,新建一个ActiveXDLL工程：
二、引用：在VB中对Excel的引用
不同版本的EXCEI在“引用”窗口里显示的版本号也不同: EXCEL2000( MicrosoftOffice9.0)
EXCEL2002( MicrosoftOffice10.0)，即卩
ExcelXP
EXCEL2003( 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表示为EXCE啲当前工作表
'注意要在对象前加上YB变量以表示是EXCEL当前工作表的对象
YB.Range("C1")=YB.Cells(1,1).Value+YB.Cells(1,2).Value
EndSub
五、设置工程属性( 为使开发啲程序更规范，可以对工程属性加以描述【非必要设置，可以省略】) ：
六、保存工程、测试、生成DLL 文件：
1、保存工程：保存本工程以作为将来修改代码和升级程序啲需要；
2、测试工程：执行快捷工具栏上啲“启动”按钮，检查是否存在错误；
3、生成DLL 文件：制作DLL 文件。第二部分、调用DLL 文件
一、在VBE中调用DLL文件
调用DLL文件，要分两步走：先注册DLL再引用DLLo
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)
EndSub
PrivateSubWorkbook_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 文件中的类模块 VBAtest
ABC.Test' 调用 DLL 中提供的过程，来完成原来在 VBA 中的功能，起到隐藏代码的效果 32M=d ） 辑凰fB ① tfAai 搭实畑 运疔⑨ 国 _3 - jJ 町使円此￡円
n, "钠41 E4t Lc fflr 輛亂? EE
E K 亡#1 IL D Qtjs*t LihtAr? ■OLE
TWTff
lii?Fe?*l m^'*r W Htlper WH L 如的:i 何巧Fr 旅皿门■. n aattaop ： 玄标 刚丄HI += r> ri' V5 & tct ：TPtl lirrtti IP 巧：■> V& Is- ￡PZ Dt-rl hr *1 i aril Ld IIWT VS & Qfcii ￥ b b trof?rIf J!?^t f ^xU-吐 Vft ft T*?fl hf* VBl & T 3 ￡ ?X J M UL Kf If VS W AJc*li Iwlbtr st 仏七 ?X HI m 瞬昨住（&. 找到DLL 文件存放的位置 VDAPruj￡tI 引囲＞B C- Hill jPtl u ii (?AtaiAiiU ftLui 丽唯 吊 >?i ： Via- > 也Q J 审诈 嚏IQ IQI nATl^Wl ■性? 数字裳 工号应一 萝缠岂色 竺 m 用貼皿 mm 文悴名 Q 】 丈挥曲H3: SetABC=Nothing' 释放类资源 EndSub 三、在工作表中运行DLLtest 宏即可实现调用： 综上所述，感觉封装DLL 的主要步骤是： ①在VB 中引用EXCEL ； ②编辑代码（要在对象前面加上定义的EXCEL变量）； ③在VBE 中引用该DLL 文件； ④在VBE 的代码中调用DLL 中的过程。
相关主题
文本预览