VBA入门到进阶常用知识代码总结79

第79集 VBA代码的封装
384、 DLL文件简述
1、什么是DLL文件
DLL是Dynamic Link Library 的缩写形式，DLL是一个包含可由多个程序同时使用的代码和数据的库，DLL不是可执行文件。动态链接提供了一种方法，使进程可以调用不属于其可执行代码的函数。函数的可执行代码位于一个 DLL 中，该 DLL 包含一个或多个已被编译、链接并与使用它们的进程分开存储的函数。DLL 还有助于共享数据和资源。多个应用程序可同时访问内存中单个DLL 副本的内容。DLL 是一个包含可由多个程序同时使用的代码和数据的库。
2、DLL在VBA中有什么作用？
 把核心代码封装在DLL里，用户无法查看到DLL文件中的代码。有利于保护自已的代码。
 可以放在DLL文件中被大家共享。
3、怎么把VBA代码封装到DLL文件中呢？
常用的方法是使用VB6.0进行封装，所以大家要想学习本集封装，需要先安装VB6.0程序。具本的封装步骤详见DLL封装示例模块。
4、怎么在VBA中调用这些代码呢？
封装的代码是以类的形式存在，所以调用前需要先加载dll文件，然后在模块中像调用类模块一样调用DLL中的函数，详见"DLL代码的调用"模块内容。
385、 代码封装的步骤
1、在模块中编写试调正确
2、打开VB程序,在"新建工程’窗口中点"ActiveX DLL"图标
3、把编写的代码粘贴到工程代码窗口中（需要修改代码，凡是Excel程序特有的属性、方法、对象等都需要在最前面家爱上xlApp.）,xlApp可以改名。
推荐使用罗刚君的封装助手，经过测试，只能使用在32位的excel中，64位不支持。
每个过程前都加这两句代码：
Dim xlApp As Object
Set xlApp = GetObject(, “Excel.Application”)
4、在右侧的属性窗口中修改工程名称和类模块名称为自已的名称
5、添加对EXCEL和OFFICE的调用,以支持使用EXCEL对象：工程—引用中
Microsoft Office…N.0 object library
Microsoft ExcelN.0 object library
6、文件菜单----工程另存为到指定的文件夹下
7、文件菜单----生成…dll 保存在刚才的文件夹下
386、 DLL文件的调用
1、工具----引用—浏览—找到dll文件,完成后会在引用窗口中出现dll文件的名字的项目
2、在代码中使用
总结：在VBA模块中使用DLL中的函数或方法，和使用VBA中类模块一样。
387、 删除引用窗口中引用项目的方法
在开始运行中输入regedit打开注册表，在注册表中搜索“工程名称.dll",把对应的项删掉便可
388、 VBA代码的转换
1、为什么要转换
在excel的编程环境下可以直接用EXCEL里的对象，但封装VBA代码的环境是VB，在人家的地盘你想用EXCEL对象就得加上详细的对象了。
比如在VBA模块中我们可以用selecttion表示正在选取的单元格，用sheets(1)表示第一个工作表，而在VB中你需要先引用EXCEL对象，然后才能利用EXCEL对象的属性引用工作簿和工作表等对象。
2、怎么转换
先引用和创建excel程序，然后利用 Excel对象.子对象.对象或方法 的结构来转换
Sub 删除重复数据()
Dim x As Integer
Dim arr, d As Object
Dim el As Object
Set d = CreateObject(“scripting.dictionary”)
With ActiveSheet
arr = Selection
For x = 1 To UBound(arr)
d(arr(x, 1)) = “”
Next x
Selection.Clear
Selection.Cells(1, 1).Resize(d.Count) = Application.Transpose(d.Keys)
End With
Set el = Nothing
End Sub
转换后代码：
Sub 删除重复数据2()
Dim x As Integer
Dim arr, d As Object
Dim el As Object
Set d = CreateObject(“scripting.dictionary”)
Set el = GetObject(, “Excel.Application”) '创建excel对象
With el.ActiveSheet 'excel程序的activesheet,遇到excel中的对象方法、函数都要加上el
arr = el.Selection
For x = 1 To UBound(arr)
d(arr(x, 1)) = “”
Next x
el.Selection.Clear
el.Selection.Cells(1, 1).Resize(d.Count) = el.Transpose(d.Keys)
End With
Set el = Nothing
End Sub