VB封装Excel - VBA成DLL技巧
更新时间:2023-03-15 17:37:01 阅读量: 教育文库 文档下载
VB封装Excel_VBA成DLL技巧
VB封装Excel_VBA成DLL技巧
使用VB6.0在WinXP_sp2、Excel 2000环境下制作、测试通过。一、启动VB6.0: 执行:“文件夹(F)”——“新建(N)”——选择“ActiveX DLL”,如下图1:二、引用:VB中对Excel的引用 执行:“工程(P)”——“引用(N)”——选择所要引用的项目:如下图2 Excel 2000中:
Microsoft Excel 9.0 Object Library
Microsoft Office 9.0 Object LibraryExcel 2003中: Microsoft Excel 11.0 Object Library
Microsoft Office 11.0 Object Library三、编写代码: 1、将工程默认名称“工程1”,改为“zygtest”,将类模块默认名称“Class1”, 改为“zyg365”,
2、在类模块的代码编辑区写入代码:如下图3
模块名称为“hongtong”,代码如下 在VB中编写代码时:要注意以下声名 Dim XLAPP As Object
Set XLAPP = GetObject(, \
代码中引用对象,如SHEET,Cell等,前面要加“XLAPP.”
(或按照 Sub hongtong() 中的格式编写。)Sub hongtong()
Dim excelApp As New Excel.Application Dim excelWorkBook As Excel.Workbook Dim excelWorksheet As Excel.Worksheet
Set excelWorkBook = excelApp.Workbooks.Add '创建新工作簿
Set excelWorksheet = excelWorkBook.Sheets(1) excelWorksheet.Cells(2, 3) = \宏通\ '写入数据 excelWorksheet.Cells(3, 4) = \ '写入数据 excelApp.Visible = True '显示excel界面,用于调试 excelWorkBook.PrintPreview '打印预览 excelWorkBook.PrintOut '打印输出 excelWorkBook.Saved = True
'excelWorkBook.Close '关闭工作薄 'excelApp.Quit '退出excel
End Sub四、工程属性设置:(可以不设置,本步骤可以省略) 为了使自己开发的程序更规范,可以对本工程的属性加以描述:如下图4
执行:“工程(P)”——“工程1属性(E)…”(当前工程中为:“zygtest属性(E)…”)五、保存工程、测试、打包生成Dll文件:
1、保存:单击保存,保存到一个文件夹中;
2、测试:执行工具栏上的“启动”(右向的三角图标)按钮,检查是否存在错误; 3、打包生成Dll文件:
执行:“文件(F)”——“生成工程1.dll(K)”(当前工程中为:“zygtest.dll”),
重命名为“zyg.dll”,至此,Dll文件制作结束。六、在Excel_VBA工程中引用、调用zyg.dll文件:如下图51、引用zyg.dll文件:
首先在Excel的VBE窗口中,执行“工具(T)”——“引用(R)”——在“引用”对话框中,
单击“浏览(B)…”按钮,找到“zyg.dll”文件——“确定”即可。
在工作簿事件中,编写代码:工作簿启动时,注册“zyg.dll”控件,工作簿关闭时,反注册
“zyg.dll”控件:在ThisWorkbook中:Private Sub Workbook_Open() '注册、引用zyg.dll
Shell \ThisWorkbook.Path & \vbHide End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean) '反注
册zyg.dll
Shell \ThisWorkbook.Path & \vbHide
End Sub2、编写调用zyg.dll中代码的模块: Sub test()
Dim kk As New zyg365 'zyg365为VB中类模块名称:输入完New后,敲空格键,
'直接出现选择列表框,从中选择“zyg365”
'kk可任意命名
kk.hongtong 'hongtong为VB中要执行的模块的名称:输入完kk.后,
'直接出现选择列表框,从中选择“zyg365” '为你的VB中的过程名称,从列表中选的 Set kk = Nothing '释放类资源
End Sub 以上技巧主要是从本论坛及ExcelHome论坛学习、借鉴,然后查阅一些资料编制而成,首先感谢本论坛中不吝赐教的各位版主、网友们,因水平有限,错误、不当之处难免,敬请各位朋友继续不吝指教。
正在阅读:
团建知识竞赛题目10-16
ArcEngine - 开发接口集03-01
信息技术教案六年级下2007西交大版12-09
团建活动策划方案03-31
县城市管理局最新半年工作总结及2022年工作计划范本04-04
QEHS-NMCX-HR-02环境因素识别与评价程序03-21
询标纪要01-30
小学生一年级关于迎春花的作文06-14
塘角鱼的养殖技术12-05
- exercise2
- 铅锌矿详查地质设计 - 图文
- 厨余垃圾、餐厨垃圾堆肥系统设计方案
- 陈明珠开题报告
- 化工原理精选例题
- 政府形象宣传册营销案例
- 小学一至三年级语文阅读专项练习题
- 2014.民诉 期末考试 复习题
- 巅峰智业 - 做好顶层设计对建设城市的重要意义
- (三起)冀教版三年级英语上册Unit4 Lesson24练习题及答案
- 2017年实心轮胎现状及发展趋势分析(目录)
- 基于GIS的农用地定级技术研究定稿
- 2017-2022年中国医疗保健市场调查与市场前景预测报告(目录) - 图文
- 作业
- OFDM技术仿真(MATLAB代码) - 图文
- Android工程师笔试题及答案
- 生命密码联合密码
- 空间地上权若干法律问题探究
- 江苏学业水平测试《机械基础》模拟试题
- 选课走班实施方案
- 封装
- 技巧
- Excel
- VBA
- DLL
- 渗流力学-习题集
- 山东省洗涤清洁用品生产企业名录2018版391家
- 118048会计学(非专业用)习题答案(部分)
- jsp编程基础第七章习题
- 高中文言文300实词+18虚词全总结
- 2018年5月底通用入党积极分子思想汇报
- 医学遗传学复习思考题答案2014版
- 勘察设计单位管理制度
- PEP8 Unit3 综合练习
- 药品分类编码及管理
- 重庆市北碚区国民经济和社会发展第十二个五年规划纲要(草案) - 图文
- 专题1 单据缮制练习
- 第五章 遵守道德规范
- 最新珠海市申请律师执业实习人员管理实施细则
- 铁路机车车辆 教学大纲
- 带时间窗车辆路径问题的改进节约算法
- 表2叶瘟发病普查情况- 黑龙江植保网
- 汽车自动变速器新技术的发展趋势
- 《机械制造工艺学》试题库及答案
- 中国药科大学 化工安全技术 期中试卷