改码神器(VB封装辅助神器)一键即可在要修改的VBA对象前添加VB中代表Excel应用程序变量

lxmgdsdxt · 发表于 2014-6-29 16:45

相信好多VBA爱好者，对VBA代码用VB6.0封装成DLL都有一定的了解与操作，本工具是为了VB6.0封装操作更快捷更方便而打造的。

一、先看看本工具的界面：

QQ截图20140629152027.png

二、因录制的GIF图片有点大，不能直接上传，因此发个链接供你们查看一下操作步骤与效果
http://a1.qpic.cn/psb?/c87223d9-d15d-4b9d-b75e-bc6a9966d4fe/3WzIdPIX6xkSFJd03lLrNTc4OAmSGRtmDK7z2sz3TQo!/b/dFyWwmecCwAA&bo=XAMwAgAAAAACAEk!&rf=viewer_4

三、特别说明：

本人同时做了两个版本，供大家测试。

1、【改码神器功能区版】  适合office2003、office2007、office2010以上版本均可使用（不能在office 64位下使用）。
2、【改码神器VBE版】只适合2007以上office版本使用。
3、要使用此工具成功，需要请勾选“信任对VBA工程对象模型的访问！”，具体步骤为：Excel选项-->信任中心-->信任中心设置-->宏设置-->开发人员宏设置。不然运行了没反应的。切记！
4、本工具无毒、无插件、无限制，可免费无限期使用。

5、经本人一系列的测试，发现存在以下几个问题，本人也非常的诚实告知，因本人初学VBA，技术还待提升中，所以暂时未想到在代码方面下手的解决方法，但却可以在书写代码方面避免使用【改码神器】时出现的错误。

问题① 如果声明的变量跟对象名称太相似的话就会容易出错，例如Range对象类型，大家都懂的吧，声明一个变量 Dim RangeRange as Range ，Set RangeRange=Range("A1:C5") 。使用【改码神器】后，会出现Set Excel_app.RangeExcel_app.Range=Excel_app.Range("A1:C5"),这样子变量就被坼分，那么怎么解决呢，其实很简单，平时我们书写对象类型的变量，可以用rng ，取Range其中几个字母作为变量即可，或者rng1、rng2。一句话简单的说 “声明变量全部用小写字母即可，或者中文变量”，保证不会有出错。顺便养个好习惯！

问题② 如果"Range("a1")"、" Range("a1")  我们  "、" 你好 Range("a1")  我们  " ，众所周知，双引号内的东西一般都是字串符，感觉这么写代码的情况应该不多吧？至少是属于字串符中的内容，不会影响运行的代码产生错误，但实际影响不知道大不大，还得继续的反反复复的测试才得到真正的结果，这个问题，我会继续去跟进与测试。使用Web网抓数据的时候，我就发现了一个， “.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" '设置头部字段”，但是application是小写，所以无法影响到【改码神器】出错，我就忽略了，"Range("a1")" 这种情况，已修复，后面两个情况未解决！

以上暂时两大问题，我会继续去努力学习，把它完全优化过来，使它更强大！

目前希望网友们帮忙测试其是否拥有一定的可用性、使用性！工具暂时来说不是很完美，希望网友们不嫌弃，本人在这献丑了，把不完美的工具也分享出来！！！

同时希望这工具能帮到大家VB6.0封装时，更快更准确更方便！欢迎大家反馈各种Bug与提点建议。你的反馈、你的建议，是我前进的动力！坚持每天进步一点点！

            作者：鈊 QQ：383077419  2014-6-29

改码神器功能演示素材.zip (152.34 KB, 下载次数: 425)

改码神器功能区版.zip (585.82 KB, 下载次数: 554)

改码神器VBE版.zip (459.11 KB, 下载次数: 558)

四、额外发一个下载链接（完整包），内有GIF动画演示
http://pan.baidu.com/s/1gdtbyO7

dajiahaoxinku12 · 发表于 2014-6-29 17:01

支持原创，感谢楼主分享，收藏了

lxmgdsdxt · 发表于 2014-6-29 17:15

dajiahaoxinku12 发表于 2014-6-29 17:01
支持原创，感谢楼主分享，收藏了

感谢支持！！！！

zhoucs00 · 发表于 2014-6-29 17:17

心总V587！！！！

sunny_8848 · 发表于 2014-6-29 20:35

多谢楼主分享，下载学习

name004 · 发表于 2014-7-1 08:28

做个记号回头再看

7176386 · 发表于 2014-7-1 12:13

不顶对不起楼主的一片苦心。

带劲儿 · 发表于 2014-7-1 12:30

支持一大下晚上研究研究

name004 · 发表于 2014-7-14 16:47

本帖最后由 name004 于 2014-7-14 16:58 编辑

急需卸载,如何卸载?2003版的菜单--帮助之右边 :改码神器
弄掉了,

lxmgdsdxt · 发表于 2014-7-14 17:17

name004 发表于 2014-7-14 16:47
急需卸载,如何卸载?2003版的菜单--帮助之右边 :改码神器
弄掉了,

把安装的改码神器卸载了就可以了

		自动登录	找回密码
密码			免费注册

[原创] 改码神器(VB封装辅助神器)一键即可在要修改的VBA对象前添加VB中代表Excel应用程序变量

评分