VBA封装为DLL及调用

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: