下载

0下载券

加入VIP
  • 专属下载特权
  • 现金文档折扣购买
  • VIP免费专区
  • 千万文档免费下载

上传资料

关闭

关闭

关闭

封号提示

内容

首页 VB操作Excel封装成DLL

VB操作Excel封装成DLL.doc

VB操作Excel封装成DLL

爱是痛苦的来源_hf7
2019-02-13 0人阅读 举报 0 0 0 暂无简介

简介:本文档为《VB操作Excel封装成DLLdoc》,可适用于IT/计算机领域

VB操作Excel封装成DLL【前言】:网上由于封装的例子和教程太零散,故系统地揭开封装神秘的面纱。【步骤】:、启动VB程序,新建“ActiveXDLL”。、勾选VB对Excel的引用:()MicrosoftExcelxObjectLibrary()MicrosoftOfficexObjectLibrary。、在VB中编写需封装的功能代码。()将工程名“工程”改为“符合功能的名字”如“海纳百川测试”,将类模块名“Class”也改为另一个“符合功能的名字”如“删除重复项”。(说明:符合命名规则任意改为某某名,改名主要是为了区别和方便调用)()编写功能代码。Sub删重()DimdicAsObjectDimxlAppAsExcelApplication'针对GetObject获取已打开的Excel对象'DimxlAppAsNewExcelApplication'针对CreateObject创建新的Excel对象DimexWbAsExcelWorkbookDimexShAsExcelWorksheetDimrAsLongSetxlApp=GetObject(,"excelapplication")'获取已打开的Excel对象'SetxlApp=CreateObject("excelapplication")'创建新的Excel对象SetexWb=xlAppActiveWorkbook'获取当前活动工作簿'SetexWb=xlAppWorkbooksAdd'创建新的工作簿SetexSh=exWbActiveSheet'获取当前活动工作表'SetexSh=exWbWorkSheets()'设置第一个工作表Setdic=CreateObject("scriptingdictionary")Dor=rdic(exShCells(r,)Value)=""LoopUntilexShCells(r,)=""exShCells(,)Resize(dicCount)=ApplicationTranspose(dickeys)Setdic=NothingSetxlApp=NothingSetexWb=NothingSetexSh=NothingEndSub、点击“文件”“生成海纳百川测试dll”保存到指定位置。、ExcelVba调用。()ALTF调出VBE窗口,“工具”“引用”“浏览”,找到刚刚保存的“海纳百川测试dll”“确定”。()Vba代码编写sub测试()dimdelasnew删除重复项del删重endsub()执行:当前工作表的A列所有不重复数据复制到C列。、加载和卸载DLL。(DLL文件和Excel文件放在同一个文件夹)在Thisworkbook中添加代码PrivateSubWorkbookOpen()'打开文件时加载要引用的DLL文件Shell"Regsvrs"Chr()ThisWorkbookPath"海纳百川测试dll"Chr()EndSubPrivateSubWorkbookBeforeClose(CancelAsBoolean)'关闭文件之前卸载引用的DLL文件Shell"Regsvrsu"Chr()ThisWorkbookPath"海纳百川测试dll"Chr()EndSub【后记】:海纳百川整理,如有不当之处请斧正。

用户评价(0)

关闭

新课改视野下建构高中语文教学实验成果报告(32KB)

抱歉,积分不足下载失败,请稍后再试!

提示

试读已结束,如需要继续阅读或者下载,敬请购买!

评分:

/4

VIP

在线
客服

免费
邮箱

爱问共享资料服务号

扫描关注领取更多福利