一个自动关闭消息框模块

joforn · 发表于 2009-10-2 21:48

最近在论坛里经常见到有人求关闭IE消息框的方法。刚好以前在VB中做了一个，就改成了VBA放上来。
使用的请注意几点：
一、为了方便查看源码，这里直接给的就是模块直接调用方式，但是这种方式有个毛病：因为VBA是单线程的，所以当在这个文档打开后，当前Excel这个进程中的所有VBA不能调用Msgbox或InputBox，一旦使用将会导致这个模块被挂起。还有就是在IDE界面会导致IDE中不能自动填写属性名等（因为VBA在运行中，所以提示的文本一闪就没了……）。解决方法：把代码用VB封装成DLL再挂载Excel上运行。
二、在VB中调用时只要有这个模块就可以了，但是在VBA中还的配合一个窗体使用。原因我也不知道……也试过不用窗体，但是当在工作中添加新的控件(如果Button)时，即Excel换成设计模式时，这个模块会导致Excel进程崩溃。初步猜测可能是因为这个模块中的子类化引起的。解决方式参见问题一。
三、测试的话就点击Sheet1上网页中的按钮就可以看到效果了，至于模块的调用方法可以参照UserForm1中的代码(模块中的主要函数也包含了使用说明，有兴趣的就自己去看吧)。

lu_zhao_long · 发表于 2009-10-2 23:20

学习了！对我很有借鉴意义！我也遇到过类似的问题，但我一直不知道 VBA 是单线程的，今天终于明白了！
多谢！

joforn · 发表于 2009-10-3 08:40

原帖由 lu_zhao_long 于 2009-10-2 23:20 发表
学习了！对我很有借鉴意义！我也遇到过类似的问题，但我一直不知道 VBA 是单线程的，今天终于明白了！
多谢！

没办法，VBA毕竟是解释型的……

zhaozyuan · 发表于 2009-10-3 13:00

Thank you very much

jxl1401 · 发表于 2009-10-3 11:55

打开后开始测试能自动关闭，但打开代码（ALT+F11）后再测试就不行了，什么原因？我只想要自动关闭这个功能，能否把代码简化些，谢谢！

jxl1401 · 发表于 2009-10-3 11:59

你曾回复过我的帖子http://club.excelhome.net/thread-483675-1-1.html，谢谢你，你一定有办法

joforn · 发表于 2009-10-3 12:32

原帖由 jxl1401 于 2009-10-3 11:59 发表
你曾回复过我的帖子http://club.excelhome.net/thread-483675-1-1.html，谢谢你，你一定有办法

一般的网站可以直接发送数据过去就可以了，根本没必要模拟点击。

jxl1401 · 发表于 2009-10-3 12:42

"直接把数据POST不行么？"我就是不会做

jxl1401 · 发表于 2009-10-3 12:43

我是在网页上下载数据，弹出确定对话框的

smhf_6 · 发表于 2009-11-1 21:23

谢谢楼主，我得花点时间仔细学习
关于自动操纵网页跳出的对话框的问题，我在外网上搜索了很久了，始终没找到过

谢谢了

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

[分享] 一个自动关闭消息框模块

你好

joforn