用VB给VBA开发外接程序(很难得见的资料，网找不到，自己写了一个，分享一下)

seeyoutime

用VB给VBA开发外接程序(很难得见的资料，网找不到，自己写了一个，分享一下)

此方法可以开发类似工具：

1.VBA代码排版工具Smart Indenter V3.5)(Indent2K代码格式化工具
2.VBA界的小规模杀伤性武器：代码百宝箱2.0(永久免费)----罗刚君

希望高手接力开发，写出更多给VBA使用的辅助工具。

VBA Dll.zip (20.35 KB, 下载次数: 743)

2014-1-19 10:33 上传

点击文件名下载附件
最简源码

最简实现菜单的源码,这个工程引用的是office2010的dll,如你装的是office2007,2003,需要重新指定相引的版本。

用VB给VBA开发外接程序.zip (697.05 KB, 下载次数: 1383)

2014-1-19 10:33 上传

点击文件名下载附件
教材

带图的教材

本站首发

seeyoutime

用VB给VBA开发外接程序


日期：2014-01-10


打开VB






关闭这个VB工程





用记事本打开Connect 文件，找到以下5段设置
   AppName         =   "Visual Basic"
   AppVer          =   "Visual Basic 6.0"
   LoadName        =   "Startup"
   LoadBehavior    =   1
   RegLocation     =   "HKEY_CURRENT_USER\Software\Microsoft\Visual Basic\6.0"
修改为：
   AppName         =   "Visual Basic for Applications IDE"
   AppVer          =   "6.0"
   LoadName        =   "Startup"
   LoadBehavior    =   1
   RegLocation     =   "HKEY_CURRENT_USER\Software\Microsoft\VBA\VBE\6.0"

实例：
（未修改的代码）
VERSION 5.00
Begin {AC0714F6-3D04-11D1-AE7D-00A0C90F26F4} dMouseWheel
   ClientHeight    =   8355
   ClientLeft      =   1740
   ClientTop       =   1545
   ClientWidth     =   16185
   _ExtentX        =   28549
   _ExtentY        =   14737
   _Version        =   393216
   Description     =   "VBA Tool"
   DisplayName     =   "VBA Tool"
   AppName         =   "Visual Basic"
   AppVer          =   "Visual Basic 6.0"
   LoadName        =   "Startup"
   LoadBehavior    =   1
   RegLocation     =   "HKEY_CURRENT_USER\Software\Microsoft\Visual Basic\6.0"
   CmdLineSupport  =   -1  'True
End
Attribute VB_Name = "dMouseWheel"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True

（修改后的代码）
VERSION 5.00
Begin {AC0714F6-3D04-11D1-AE7D-00A0C90F26F4} dMouseWheel
   ClientHeight    =   7650
   ClientLeft      =   1740
   ClientTop       =   1545
   ClientWidth     =   9975
   _ExtentX        =   17595
   _ExtentY        =   13494
   _Version        =   393216
   Description     =   "VBA Tool"
   DisplayName     =   "VBA Tool"
   AppName         =   "Visual Basic for Applications IDE"
   AppVer          =   "6.0"
   LoadName        =   "Startup"
   LoadBehavior    =   1
   RegLocation     =   "HKEY_CURRENT_USER\Software\Microsoft\VBA\VBE\6.0"
End
Attribute VB_Name = "dMouseWheel"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True


修改后重新打开这个VB工程



工程〉引用〉取消Microsoft Visual Basic 6.0 Extensibility 这个VB的引用


换成VBA的引用 Microsoft Visual Basic for Applications Extensibility


OK 再 文件〉生成 MyAddIn.dll这个DLL文件
最后在Excel VBA 中 工具〉引用〉浏览 找到MyAddIn.dll这个文件，引用它


外接程序〉My AddIn


成功

wqfzqgk

有些地方得改一下才可以

seeyoutime

wqfzqgk 发表于 2014-1-20 15:22
有些地方得改一下才可以

请指正了。。。

wqfzqgk

当然可以调用，不过VB也可以直接出现做一个，以前论坛上发过一个

土司空

菜鸟求教：在VBE下使用外界程序一般有什么作用或意义？

xiaost0225

非常好的东西，收藏了

seeyoutime

土司空 发表于 2014-1-23 09:29
菜鸟求教：在VBE下使用外界程序一般有什么作用或意义？

VBE 不是很完善，不足够人性化，又更新慢。给VBE开发外接程序，就是为了方便高效开发，差不多的意思就是给VBE打补丁。给VBE开发外接程序的都是辛苦不赚钱的好同学。

yaitlt

学习一下,谢谢分享。

mmwwdd

做记号，留着以后看