VB操作Excel封装成DLL.doc

VB操作Excel封装成DLL【前言】：网上由于封装的例子和教程太零散，故系统地揭开封装神秘的面纱。【步骤】： 1、启动VB6.0程序，新建“ActiveXDLL”。 2、勾选VB对Excel的引用：(1) Microsoft Excel x.0 Object Library ；(2) Microsoft Office x.0 Object Library 。 3、在VB中编写需封装的功能代码。（1）将工程名“工程1”改为“符合功能的名字”如“海纳百川测试”， 将类模块名“Class1”也改为另一个“符合功能的名字”如“删除重复项”。（说明：符合命名规则任意改为某某名，改名主要是为了区别和方便调用）（2）编写功能代码。 Sub 删重() Dim dic As Object Dim xlApp As Excel.Application针对GetObject获取已打开的Excel对象Dim xlApp As New Excel.Application 针对CreateObject创建新的Excel对象 Dim exWb As Excel.Workbook Dim exSh As Excel.Worksheet Dim r AsLong Set xlApp = GetObject(,excel.application)获取已打开的Excel对象Set xlApp = CreateObject(excel.application) 创建新的Excel对象Set exWb = xlApp.ActiveWorkbook获取当前活动工作簿 Set exWb = xlApp.Workbooks.Add 创建新的工作簿Set exSh = exWb.ActiveSheet获取当前活动工作表Set exSh = exWb.WorkSheets(1) 设置第一个工作表 Set dic = CreateObject(scripting.dictionary)Do r = r + 1 dic(exSh.Cells(r, 1).Value) = Loop Until exSh.Cells(r, 1) = exSh.Cells(1, 3).Resize(dic.Count) = Application.Transpose(dic.keys) Set dic = NothingSet xlApp=Nothing Set exWb=Nothing Set exSh=NothingEnd Sub 4、点击“文件”“生成海纳百川测试.dll”保存到指定位置。 5、Excel Vba调用。（1）ALT+F11调出VBE窗口，“工具”“引用”“浏览”，找到刚刚保存的“海纳百川测试.dll”“确定”。 （2）Vba代码编写sub 测试() dim del as new 删除重复项 del.删重end sub（3）执行：当前工作表的A列所有不重复数据复制到C列。 6、加载和卸载DLL。（DLL文件和Excel文件放在同一个文件夹） 在Thisworkbook中添加代码 Private Sub Workbook_Open() 打开文件时加载要引用的DLL文件 Shell Regsvr32 /s & Chr(34) & ThisWorkbook.Path & 海纳百川测试.dll & Chr(34) End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) 关闭文件之前卸载引用的DLL文件 Shell Regsvr32 /s /u & C