又谈我说“启用宏”，就得启用宏，管你什么安全级

dcw0402 · 发表于 2009-11-14 23:44

BobPan版主大贴:http://club.excelhome.net/viewthread.php?tid=283306
已被PS过两次见:
http://club.excelhome.net/viewthread.php?tid=289832
http://club.excelhome.net/viewthread.php?tid=284791
俺也来改进一下,呵呵
假设你想启动D:\newtest.xls文件,请按如下操作
打开VB6.0,建立一个EXE工程,双击默认窗体写下如下代码

Option Explicit

Private Sub Form_Load()
Open "C:\myVBScmd.vbs" For Output As #1
Print #1, "Set objXL = WScript.CreateObject(""Excel.Application"")"
Print #1, "objXL.Workbooks.Open ""D:\newtest.xls"""
Print #1, "objXL.Visible = True"
Print #1, "Set objXL = Nothing"
Close #1

Open "C:\mycmd.bat" For Output As #1
Print #1, "start C:\myVBScmd.vbs"
Print #1, "ping 127.0.0.1 -n 6 >nul"
Print #1, "del C:\myVBScmd.vbs"
Print #1, "del %0"
Close #1
Shell "C:\mycmd.bat", 0
Unload Me
End Sub
然后文件菜单下生成EXE文件,OK制作完成,优点是将代码封装进EXE文件,且不留中间文件,再次感谢BobPan版主
附上附件,附件下载后请将newtest.xls剪切至d盘根目录下,请测试

附上老版主的原话:
注：建议还是给用户应有的权利，让用户来选择是否启用宏
请不要用此方法制作病毒

lb_bn · 发表于 2009-11-14 23:47

谢谢分享，学习了。

来生缘 · 发表于 2009-11-15 00:48

还没有试过封装呢。有机会试一下

boeot01 · 发表于 2009-11-15 09:37

封装，会不会把VBA里面涉及路径的代码，比如：Activeworkbook.path等，就是自动取当前激活工作表的路径给变掉啊？呵呵，我之前用过一个封装软件，就变掉了，变成了一个比较乱的path，呵呵！

dcw0402 · 发表于 2009-11-15 18:45

原帖由 boeot01 于 2009-11-15 09:37 发表
封装，会不会把VBA里面涉及路径的代码，比如：Activeworkbook.path等，就是自动取当前激活工作表的路径给变掉啊？呵呵，我之前用过一个封装软件，就变掉了，变成了一个比较乱的path，呵呵！

这里用的是绝对路径,也可以让用户手动指定路径阿,更改下代码就行,你说的是不是封装成dll?没太明白你的意思

ywgcsfly · 发表于 2009-12-30 22:51

学习学习，感谢分享！

飞云楼主 · 发表于 2010-1-19 22:50

谢谢分享，学习了。

szqhb · 发表于 2010-11-20 22:07

原帖由 dcw0402 于 2009-11-14 23:44 发表
BobPan版主大贴:http://club.excelhome.net/viewthread.php?tid=283306
已被PS过两次见:
http://club.excelhome.net/viewthread.php?tid=289832
http://club.excelhome.net/viewthread.php?tid=284791
俺也来改进 ...

你好，dcw0402大师，能为我封装一个启动本文件夹下，文件夹名为“内有模板切勿删除”内，带有宏的名为“此为统计模板请勿删除”的Excel文档的小程序？谢谢

雨佳1 · 发表于 2010-11-20 22:25

学习刚开始接触VBA的菜鸟

houyuqiang123 · 发表于 2010-11-21 08:17

学习中，

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

[分享] 又谈 我说“启用宏”，就得启用宏，管你什么安全级

[分享] 又谈我说“启用宏”，就得启用宏，管你什么安全级