VBA封装成exe示例

chlele · 发表于 2012-5-10 19:04

本帖最后由 chlele 于 2012-5-10 19:05 编辑

wangminbai 发表于 2012-5-10 18:45
好，很不错~~~~~~

哇哦！... 鼎鼎大名的Office Tab的作者来捧场了，荣幸之至，荣幸之极！
您的Office Tab太棒了！一直没机会感谢，这里感谢一下！^_^

zjwww · 发表于 2012-5-10 22:55

楼主的做法很简单,容易学,谢谢分享.

lotteryman · 发表于 2012-5-13 16:16

楼主，
这句代码(application.thisworkbook.save)可以封装吗？
我封装了，但不起作用，VB把当作不存在。
把这句放回EXCEL里是OK的。
请问怎么回事，怎么封装application.thisworkbook.save，让它起作用？
谢谢！！

chlele · 发表于 2012-5-13 17:18

lotteryman 发表于 2012-5-13 16:16
楼主，
这句代码(application.thisworkbook.save)可以封装吗？
我封装了，但不起作用，VB把当作不存在。
...

我也不知道为什么不行，不过你可以用：
XL.Workbooks(XL.ActiveWorkbook.Name).Save

lotteryman · 发表于 2012-5-13 18:21

本帖最后由 lotteryman 于 2012-5-13 18:22 编辑

chlele 发表于 2012-5-13 17:18
我也不知道为什么不行，不过你可以用：
XL.Workbooks(XL.ActiveWorkbook.Name).Save

楼主真是利害！
搞定了！
其实我原来写的代码是完整的：XL.Application.thisworkbook.save, 这样是不行的。
你换成另一个样子，却可以了。真怪呀。
非常感谢！！

lotteryman · 发表于 2012-5-13 18:25

至于变慢的原因，我就不管了。
在未封装前，我改写了代码成用数组后，用时不到1秒。
封装成EXE(代码也是用内存数组)，时间变成8秒左右。
没有办法提速，不管它了。

Kelidai · 发表于 2012-5-26 08:08

最近大家都在封装，开始学习封装了。

lxw6 · 发表于 2012-5-29 09:31

学习了。非常好的帖子。收藏！

剑波 · 发表于 2012-6-9 19:27

没学会，呜呜

abing3 · 发表于 2012-6-9 21:39

好东西.学习了

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

[原创] VBA封装成exe示例