封装ExcelVBA代码：[2]ExcelVBA代码引用DLL

1、引用Dll文件打开Excel 2007，按键盘组合键“Alt+F11”进入VBA编程环境。点击“工具”→“引用”选项，在打开的“引用”窗口中，点击“浏览”按钮。

2、在随后打开的“浏览文件”窗口中，找到上一节生成的“feifeidown.dll”文件，点击“确定”进行添加，在返回的“引用”窗口中，确保勾选“feifeidown”，然后点击“确定”按钮完成。

3、双击“ThisWorkBook”，选择“Open”事件和“BeforeClose事件上”，敛财醣沁并输入以下代码，用于在文档打开时注册DLL，以及关闭时反注册DLL。Private Sub Workbook_BeforeClose(Cancel As Boolean) Shell "Regsvr32 /u /s " & VBA.Chr(34) & ThisWorkbook.Path & "\feifeidown.dll" & VBA.Char(34), vbHideEnd SubPrivate Sub Workbook_Open() Shell "Regsvr32 /s " & VBA.Chr(34) & ThisWorkbook.Path & "\feifeidown.dll" & VBA.Char(34), vbHideEnd Sub

4、编写代码调用DLL右击“Excel对象”，选择“插入”→“模块”，在模块中输入以下代码：Sub Test() Dim sa As New AddInfo sa.SetValueEnd Sub

5、按下键盘快捷键“F5”，在打开的“宏”窗口中选择“Test”，点击“运行”，然后就可以在Sheet1工作表中看到效果啦。

6、最后将该过程添加到“ThisWorkBook”的启动菜单中，即可实现在打开文档中自动运行宏的目地。