VBA封装成exe示例

qq416267 · 发表于 2015-9-15 20:51

高手高手搞搞手！！{:soso_e144:}

liaoliangbang · 发表于 2015-12-8 23:26

精华贴！！！！！！！！！！！！！！！！！！！！！！

jmkite · 发表于 2016-4-24 08:17

你好，我按照你发的VAB封装成EXE示例。发现封装不成功，不知问题出在那里，可以帮我看看不？谢谢！
http://club.excelhome.net/thread-1272258-1-1.html

chlele · 发表于 2016-4-24 16:58

jmkite 发表于 2016-4-24 08:17
你好，我按照你发的VAB封装成EXE示例。发现封装不成功，不知问题出在那里，可以帮我看看不？谢谢！
http:/ ...

看了一下和Excel相关的只有Test1，请把Test1改成如下试试：

Sub Test1()
Password = Mid(Sn3, 1, 15) & "test"
Password2 = MD5(Password, 32)
If XL.ActiveWorkbook.Cells(2, 2) = Mid(Password2, 1, 18) Then
XL.ActiveWorkbook.Range("A3:A65536").ClearContents
XL.ActiveWorkbook.Range("B3:B65536").ClearContents
MsgBox "成功清除！"
Else
MsgBox "运行密钥错误！"
End If
End Sub

Shanegg · 发表于 2016-5-5 15:49

Mark~~~~~~~~~~感谢分享

sunny_8848 · 发表于 2016-5-5 16:58

好功能，感谢楼主分享

bxxqzgjc · 发表于 2016-5-21 11:47

感谢楼主分享！！！！

bxxqzgjc · 发表于 2016-5-21 13:06

老师你好！我的EXCAL有20多个模块和6个窗体，是否要有20多TEST1...........TEST20...啊？请指点！！！

chlele · 发表于 2016-5-21 16:28

bxxqzgjc 发表于 2016-5-21 13:06
老师你好！我的EXCAL有20多个模块和6个窗体，是否要有20多TEST1...........TEST20...啊？请指点！！！

应该需要的吧。具体的只有你自己知道啊，20个是不是都需要外部调用，如果是那就是了。

七主 · 发表于 2016-5-21 18:39

蟹蟹分享！

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

[原创] VBA封装成exe示例