一个绝对提升VBA编程效率的工具.

作者：绿色风分类：时间：2022-08-18 浏览：150

楼主 ryueifu	VBA编程四大麻烦 1,引用对话框中,找其他组件,比如,引用Adodb或者,引用字典,FSO等.非常费时间,费眼睛 2,查询API,想使用一个api函数,必须在模块头部写很多很长的函数.这样的重复动作很多. 3,VBA窗体的附加控件对话框,比如,想在vba窗体里,使用Adodc和DataGrid.必须在附加控件里,找来找去. 4,对于新的对象,必须使用Set 和New关键词.有时候,还需要使用Getobject. 我做了一个通用的Dll, 可以彻底解决以上麻烦,想使用哪一个对象,直接用就行,无需绑定,无需声明. OfficeDll.rar 1,解压缩后.运行regdll 2,打开Excel VBA编程环境 3,在代码区右键 4,插入一个窗体 5,在控件工具箱顶部右键,点击更多控件.. 6,导入ActiveX.pag文件.
2楼 cqcbc	确实方便很多，控件也好操作，谢谢！
3楼芐雨	呵呵，下载试试
4楼 ryueifu	本工具分三大类一, Office各个大组件. 二,常用引用,比如字典,剪贴板,FSO,正则表达式等. 三,API函数. Public mso As New OfficeDll.ClsOffice Public refs As New OfficeDll.ClsReferences Public api As New OfficeDll.ClsAPI '<<<<欢迎使用ryueifu_VBA做的混合编程工具:OfficeDll>>>> '以下为示例程序 Sub msoTest() With mso.WordApp '操作Word Debug.Print .ActiveDocument.Name End With With mso.ExcelApp '操作Excel Debug.Print .Version End With End Sub Sub refsTest() With refs.fso 'FSO Debug.Print .GetBaseName(ThisWorkbook.FullName) End With With refs.reg '正则表达式 .Global = True .Pattern = "\d" Debug.Print .Replace("aa1b22c4d9", "-") End With End Sub Sub apiTest() With api .About Application.Hwnd, "ryueifu_VBA", "Officecommondll" .Hyperlink "www.sina.com.cn" .Hyperlink ActiveWorkbook.Path End With End Sub ''期待更多实例!
5楼 yjzstar	好东西啊！
6楼 ryueifu	OfficeDll用法示例 VBA窗体,使用第三方控件 1
7楼 wqy88	确实方便很多，控件也好操作，谢谢！

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表