他山之石——VBA代码封装

继续学习VBA!

话说CSDN又改版了啊，这世界天天在变化啊！

       '1 什么是DLL文件
     'DLL是Dynamic Link Library 的缩写形式，DLL是一个包含可由多个程序同时使用的代码和数据的库，'
 'DLL不是可执行文件。动态链接提供了一种方法，使进程可以调用不属于其可执行代码的函数。函数的
 '可执行代码位于一个 DLL 中，该 DLL 包含一个或多个已被编译、链接并与使用它们的进程分开存储的
 '函数。DLL 还有助于共享数据和资源。多个应用程序可同时访问内存中单个DLL 副本的内容。DLL 是一个
 '包含可由多个程序同时使用的代码和数据的库。

  '2、DLL在VBA中有什么作用？
  
     '1 把核心代码封装在DLL里，用户无法查看到DLL文件中的代码。有利于保护自已的代码。
     '2 可以放在DLL文件中被大家共享。

  '3 怎么把VBA代码封装到DLL文件中呢？
     
    '常用的方法是使用VB6.0进行封装，所以大家要想学习本集封装，需要先安装VB6.0程序。具本的封装步骤
  '详见DLL封装示例模块。
    
  '4 怎么在VBA中调用这些代码呢？
     '封装的代码是以类的形式存在，所以调用前需要先加载dll文件，然后在模块中象调用类模块一样调用DLL
  '中的函数，详见"DLL代码的调用"模块内容。
     

     '封装的步骤
 '第1步 在模块中编写试调正确
'Function 面积(长 As Double, 宽 As Double)
'  面积 = 长 * 宽
'End Function

 '第2步 打开VB程序,在"新建工程'窗口中点"ActiveX DLL"图标.


 '第3步 进入编辑界面后,进行如下设置
 
     '1 把编写的代码粘贴到工程代码窗口中
     
     '2 在右侧的属性窗口中修改工程名称和类模块名称为自已的名称.
     
     '3 添加对EXCEL和OFFICE的调用,以支持使用EXCEL对象.
        'Microsoft Office...N.0 object library
        'Microsoft ExcelN.0 object library
     '4 文件菜单----工程另存为到指定的文件夹下.
     
     '5 文件菜单----生成....dll 保存在刚在的文件夹下
     
      '进行以上步骤后,在文件夹内会生成很多文件.这些文件两为两大类.dll是最终封装好的代码文件,其他的是为了以后编辑代码用的.
    '如果只是生成dll,以后需要修改代码时,而你又无法打开查看编辑,怎么办呢?所以要有一个备份可以编辑代码.



'一 调用dll代码的步骤

  '1 工具----引用---浏览---找到dll文件,完成后会在引用窗口中出现dll文件的名子的项目
 
  '2 在代码中使用。
    Sub test()
      Dim m As New 面积计算
      MsgBox m.面积(10, 20)
    End Sub
  
'    Sub test()
'      Dim m As New 面积计算
'      MsgBox m.面积(12, 20)
'    End Sub
    
    '总结：在VBA模块中使用DLL中的函数或方法，和使用VBA中类模块一样。


'二 删除引用窗口中引用项目的方法

   '在开始运行中输入regedit打开注册表，在注册表中搜索“工程名称.dll",把对应的项删掉便可

'1 为什么要转换
   '在excel的编程环境下可以直接用EXCEL里的对象，但封装VBA代码的环境是VB，在人家的地盘你想用EXCEL对象就得加上详细的对象了。
 '比如在VBA模块中我们可以用selecttion表示正在选取的单元格，用sheets(1)表示第一个工作表，而在VB中你需要先引用EXCEL对象，
 '然后才能利用EXCEL对象的属性引用工作簿和工作表等对象。

'2 怎么转换

   '先引用和创建excel程序，然后利用 Excel对象.子对象.对象或方法 的结构来转换
   
   
 '在VBA中的代码
  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


Sub 引用删除dll()
 Dim sc As New 删除重复模块
 sc.删除重复数据2
 Set sc = Nothing
End Sub