封装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), vbHide

End Sub

Private Sub Workbook_Open()

   Shell "Regsvr32 /s " & VBA.Chr(34) & ThisWorkbook.Path & "\feifeidown.dll" & VBA.Char(34), vbHide

End Sub

4、编写代码调用DLL

右击“Excel对象”，选择“插入”→“模块”，在模块中输入以下代码：

Sub Test()

  Dim sa As New AddInfo

  sa.SetValue

End Sub

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

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