解决定时提示保存的遗留问题

chch5847 · 发表于 2004-9-12 17:10

使用以下代码可以实现每隔10分钟会出现保存文件的提示框:

Application.OnTime Now + TimeValue("00:10:00"), "提示保存文件的宏名"

遗留问题:如果该文件打开后,不够10分钟就关闭了(此时EXCEL未关闭),那么等到10分钟时,该文件会自动打开,并出现保存文件的提示框.

用什么办法解决文件关闭后就不再计时了???

taller · 发表于 2004-9-12 18:10

BeforeClose中

Application.OnTime Procedure:="提示保存文件的宏名",Schedule:=False

chch5847 · 发表于 2004-9-12 21:30

TALLER版主：是以下代码吗？

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Application.OnTime Procedure:="my_Procedure", Schedule:=False

End Sub

可是关闭文件时出现＂参数不可选＂的错误提示．

cC2GZ48l.rar (6.66 KB, 下载次数: 72)

[此贴子已经被作者于2004-9-12 21:30:36编辑过]

chch5847 · 发表于 2004-9-13 15:09

chijanzen:多谢多谢!

不知我琢磨的对不对?我用的是EXCEL2000

在EXCEL2000里,类似TALLER版主给我的代码:

Application.OnTime Procedure:="宏名", Schedule:=False不能用,应该用类似:

Application.OnTime earliesttime:=Now + TimeSerial(0, 1, 0), procedure:="宏名", schedule:=False的代码才能停止计时．

建议：chijanzen兄,请把楼上的代码做成范例，放在你家里供更多需要的人参考．因为这两天我多次搜索，没发现有彻底解决此遗留问题的帖子．

[em05][em05][em05]

taller · 发表于 2004-9-13 17:55

2楼代码粘贴时丢了一部分,5楼是正确的,关键在于取得开始设定的时间earliesttime,

chch5847 · 发表于 2004-9-14 08:44

TALLER版主:我又多学了一点点.谢谢你!

chijanzen · 发表于 2004-9-13 11:09

請參考:

'Module

Public RunWhen As Double

Sub StartTimer()

RunWhen = Now + TimeSerial(0, 1, 0) '1分鐘

Application.OnTime earliesttime:=RunWhen, procedure:="Star_Sub", schedule:=True

End Sub

Sub Star_Sub()

MsgBox ""

ThisWorkbook.Save

StartTimer

End Sub

Sub StopTimer()

On Error Resume Next

Application.OnTime earliesttime:=RunWhen, procedure:="Star_Sub", schedule:=False

End Sub

'Thiswork

Private Sub Workbook_BeforeClose(Cancel As Boolean)

StopTimer

End Sub

Private Sub Workbook_Open()

StartTimer

End Sub

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