求帮忙修正我写的一个程序

brdsz · 发表于 2011-2-22 18:29

原帖由 brdsz 于 2011-2-22 13:09 发表

今天测试，发现BUG，就是打开该工作簿后，电脑在做其他事情，比如我在浏览网页时，到时间后，不会自动关闭。只有等我切换到excel页面时，才能自动关闭。
我觉得这个问题应该说比较严重，否则达不到自动关闭 ...

找到一种让窗体显示最前端的方法，但是我觉得最好的方法是不在最前端时，他就能完成操作。

monkeywq · 发表于 2011-2-22 19:40

新手来学习一下,感谢分享

baby5200 · 发表于 2011-2-23 11:13

原帖由 brdsz 于 2011-2-22 18:29 发表

找到一种让窗体显示最前端的方法，但是我觉得最好的方法是不在最前端时，他就能完成操作。

就这样解决。。应该只有这种解决方法。。。。谢谢brdsz~~~~~~~

baby5200 · 发表于 2011-2-23 12:03

原帖由 brdsz 于 2011-2-21 23:40 发表
谢谢baby5200的分享！我用你的代码，加上一段计时代码，合在一起测试成功。跟你的原码唯一不同的地方是，你的计时是从打开文件开始，我这个是在你对这个文件单元格没有进行编辑和其他动作开始计时。不知你认为如何？ ...

将 Application.OnTime Now() + TimeValue("00:00:01"), "bbb" 改为 Application.OnTime Now() + TimeValue("00:00:02"), "bbb"
同时 ***,,fals 也改一下试试

我试了，也不行～

我试过，，用Application.OnTime Now() + TimeValue("00:00:01"), "" 语句定时来执行一个过程的话，到了那个时间，会打开那个过程所在文件执行该过程。。
之前我上传的那个“自动关闭.XLS”也是同样的情况，手动关闭该文件后，在一定时间后它会弹出确认关闭的窗体。。。。。

要解决这个问题，就需要实现在手动关闭点击“X”的同时，执行 Application.OnTime Now() + TimeValue("00:00:01"), "" ,,False 语句。

[ 本帖最后由 baby5200 于 2011-2-23 12:45 编辑 ]

brdsz · 发表于 2011-2-23 12:37

经过我修改后的文件，如果手动关闭，只能关闭整个EXCEL，而无法只关闭本工作簿，你测试一下看看。

[ 本帖最后由 brdsz 于 2011-2-23 13:10 编辑 ]

baby5200 · 发表于 2011-2-23 12:42

以前见到过类似的语句，就是关闭的同时执行一个语句。。找找看。。

有了
Auto_Close

我再去试试。。

[ 本帖最后由 baby5200 于 2011-2-23 12:43 编辑 ]

baby5200 · 发表于 2011-2-23 13:00

我加了以下代码：

Sub auto_close()
Application.OnTime Now + TimeValue("00:00:20"), "aclose", , False
End Sub

结果关闭会出错，不知道问题在哪里～

brdsz · 发表于 2011-2-23 13:19

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.OnTime Now() + TimeValue("00:00:01"), "bbb", , False
Application.DisplayAlerts = False
Application.Save
Application.Quit
End Sub

在Workbook加以上代码，可以关闭，但会把所有的EXCEL窗口全部关闭，效果不理想。

把红色部分改为以下语句还是不行： ThisWorkbook.Close savechanges:=True

[ 本帖最后由 brdsz 于 2011-2-23 14:06 编辑 ]

baby5200 · 发表于 2011-2-23 16:21

原帖由 brdsz 于 2011-2-23 13:19 发表
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.OnTime Now() + TimeValue("00:00:01"), "bbb", , False
Application.DisplayAlerts = False
Appli ...

没有看懂这段。。我加进去了和没有加是一样的，不晓得为什么～

brdsz · 发表于 2011-2-23 17:20

没有加之前无法单独关闭本工作簿，加进去后可以关闭本工作簿，但它连整个其他excel工作簿也关闭了。

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

[求助] 求帮忙修正我写的一个程序

回复 13楼 baby5200 的帖子

回复 19楼 baby5200 的帖子