VB操作Excel封装成DLL

《VB操作Excel封装成DLL》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、VB操作Excel封装成DLL        【前言】：网上由于封装的例子和教程太零散，故系统地揭开封装神秘的面纱。       【步骤】：       1、启动VB6.0程序，新建“ActiveX DLL”。       2、勾选VB对Excel的引用：(1)MicrosoftExcelx.0ObjectLibrary；(2)MicrosoftOfficex.0ObjectLibrary。       3、在VB中编写需封装的功能代码。      （1）将工程名“工程1”改为“符合功能的名字”——如“海纳百川测试”，将类模块名“Class1”也改为

2、另一个“符合功能的名字”——如“删除重复项”。（说明：符合命名规则任意改为某某名，改名主要是为了区别和方便调用）      （2）编写功能代码。         Sub删重()             DimdicAsObject             DimxlAppAsExcel.Application    '针对GetObject获取已打开的Excel对象              'DimxlAppAsNewExcel.Application  '针对CreateObject创建新的Excel对象             DimexWbA

3、sExcel.Workbook             DimexShAsExcel.Worksheet             DimrAs Long                 SetxlApp=GetObject(,"excel.application")    '获取已打开的Excel对象                  'SetxlApp=CreateObject("excel.application")   '创建新的Excel对象                  SetexWb=xlApp.ActiveWorkbook     

4、'获取当前活动工作簿                 'SetexWb=xlApp.Workbooks.Add    '创建新的工作簿                  SetexSh=exWb.ActiveSheet             '获取当前活动工作表                  'SetexSh=exWb.WorkSheets(1)       '设置第一个工作表                 Setdic=CreateObject("scripting.dictionary")                Do       

5、         r=r+1                 dic(exSh.Cells(r,1).Value)=""              LoopUntilexSh.Cells(r,1)=""            exSh.Cells(1,3).Resize(dic.Count)=Application.Transpose(dic.keys)         Setdic=Nothing          SetxlApp=Nothing         SetexWb=Nothing         SetexSh=NothingEnd

6、Sub        4、点击——“文件”——“生成海纳百川测试.dll”——保存到指定位置。        5、ExcelVba调用。       （1）ALT+F11调出VBE窗口，“工具”——“引用”——“浏览”，找到刚刚保存的“海纳百川测试.dll”——“确定”。      （2）Vba代码编写              sub 测试()                  dimdelasnew删除重复项                  del.删重              endsub        （3）执行：当前工作表的A列所有不重

7、复数据复制到C列。         6、加载和卸载DLL。（DLL文件和Excel文件放在同一个文件夹）         在Thisworkbook中添加代码             PrivateSubWorkbook_Open()'打开文件时加载要引用的DLL文件                 Shell"Regsvr32/s"&Chr(34)&ThisWorkbook.Path&"海纳百川测试.dll"&Chr(34)             EndSub               PrivateSubWorkbook_BeforeClo

8、se(CancelAsBoolean)'关闭文件之前卸载引用的DLL文件