Application.OnTime没有执行
我试图取消ThisWorkbook模块中的Workbook_Close例程中的计时器。 任何人都可以解释以下行为？
手动closures工作簿 Application.OnTime按预期方式运行并取消定时器。 如果我试图不止一次地杀死同一个计时器，或者一个不存在的计时器，我会得到一个错误
错误：1004：对象'_Application'的方法'OnTime'失败
对我来说，这是certificate该function正常工作的证据。
closures使用ThisWorkbook.Close工作簿closures计时器不被杀害事实certificate：
- 定时器到期时，工作簿将重新打开
- 如果同一计时器不止一次死亡，VBA不会引发任何错误
- VBA在试图杀死一个不存在的定时器时不会抛出错误
进一步的背景
应用程序。在这两种情况下，都会像预期的那样运行。 对我来说，这表示应用程序对象仍然被加载，VBA运行时仍然正常工作。
testing代码
在一个名为minUnit的标准模块中
Private Sub testCallBack(name As String, nextTime As String) MsgBox "callback " & name & " " & nextTime End Sub Public Function sProcedure(callBackProcedure As String, mName As String, nextTime As Date) As String ' Constructs a properly formatted string to feed to OnTime for a call back with two parameters sProcedure = "'" & callBackProcedure & " " & """" & mName & """," & """" & fmtTime(nextTime) & """'" End Function Private Sub testTimerSet() gnextTime = Now() + TimeSerial(1, 0, 0) Application.OnTime gnextTime, sProcedure("Globals.testCallBack", _ "testTimer", gnextTime) End Sub Public Sub testTimerKill() On Error Resume Next Application.OnTime gnextTime, sProcedure("Globals.testCallBack", _ "testTimer", gnextTime), _ , False End Sub 在ThisWorkbook
Private Sub Workbook_BeforeClose(Cancel As Boolean) Globals.testTimerKill Globals.testTimerKill Globals.testTimerKill On Error Resume Next Application.OnTime 0, "Nothing", , False Application.Run sProcedure("minUnit.testCallBack", "Application.Run", Now()) Application.OnTime Now(), sProcedure("minUnit.testCallBack", "Application.OnTime Now()", Now()), , True End Sub Sub closeWorkbook() ThisWorkbook.Close End Sub
跟踪手动closures（按预期抛出错误）…
20:27:07:206 minUnit.testTimerSet: START 20:27:07:209 Application.OnTime 'minUnit.testCallBack "testTimer","21:27:07"' :0.003532 20:27:07:212 minUnit.testTimerSet: END :0.006447 20:27:13:618 minUnit.testTimerKill: START 20:27:13:621 minUnit.testTimerKill: END :0.003337 20:27:21:240 minUnit.testTimerSet: START 20:27:21:244 Application.OnTime 'minUnit.testCallBack "testTimer","21:27:21"' :0.004301 20:27:21:246 minUnit.testTimerSet: END :0.006274 20:27:33:946 ThisWorkbook.Workbook_BeforeClose: START 20:27:33:949 minUnit.testTimerKill: START 20:27:33:951 minUnit.testTimerKill: END :0.001921 20:27:33:953 minUnit.testTimerKill: START 20:27:33:957 minUnit.testTimerKill: END 20:27:33:957**ERROR: 1004: Method 'OnTime' of object '_Application' failed :0.002433 20:27:33:963 minUnit.testTimerKill: START 20:27:33:967 minUnit.testTimerKill: END 20:27:33:967**ERROR: 1004: Method 'OnTime' of object '_Application' failed :0.002230 20:27:33:972 Application.OnTime 0, "Nothing", , False 20:27:33:972**ERROR: 1004: Method 'OnTime' of object '_Application' failed :0.024134 20:27:33:977 Application.Run 'minUnit.testCallBack "Application.Run","20:27:33"' :0.031184 20:27:33:983 minUnit.testCallBack: START 20:27:35:995 minUnit.testCallBack: END :2.012402 20:27:35:997 Application.OnTime Now() 'minUnit.testCallBack "Application.OnTime Now()","20:27:35"':2.051651 20:27:35:999 ThisWorkbook.Workbook_BeforeClose: END :2.053604
使用.Closeclosures通过运行closeWorkbook（应在20：30：11：979引发第一个错误）…
20:29:48:201 minUnit.testTimerSet: START 20:29:48:204 Application.OnTime 'minUnit.testCallBack "testTimer","21:29:48"' :0.003342 20:29:48:206 minUnit.testTimerSet: END :0.005207 20:29:51:942 minUnit.testTimerKill: START 20:29:51:945 minUnit.testTimerKill: END :0.002946 20:29:55:444 minUnit.testTimerSet: START 20:29:55:448 Application.OnTime 'minUnit.testCallBack "testTimer","21:29:55"' :0.003535 20:29:55:450 minUnit.testTimerSet: END :0.005446 20:30:11:966 ThisWorkbook.closeWorkbook: START 20:30:11:971 ThisWorkbook.Workbook_BeforeClose: START 20:30:11:973 minUnit.testTimerKill: START 20:30:11:975 minUnit.testTimerKill: END :0.001994 20:30:11:979 minUnit.testTimerKill: START 20:30:11:981 minUnit.testTimerKill: END :0.001847 20:30:11:983 minUnit.testTimerKill: START 20:30:11:986 minUnit.testTimerKill: END :0.002271 20:30:11:988 Application.OnTime 0, "Nothing", , False :0.016905 20:30:11:991 Application.Run 'minUnit.testCallBack "Application.Run","20:30:11"' :0.019140 20:30:11:996 minUnit.testCallBack: START 20:30:13:976 minUnit.testCallBack: END :1.979131 20:30:13:977 Application.OnTime Now() 'minUnit.testCallBack "Application.OnTime Now()","20:30:13"':2.005963 20:30:13:985 ThisWorkbook.Workbook_BeforeClose: END :2.013265
我做了一些修改。 出于testing目的，我们只需要一个msgbox来注意例程是否已经正确运行/停止。
在标准模块中：
Option Explicit Public dTime As Date ' Needs to be a public/global variable Public Sub TimerStart() dTime = Now() + TimeSerial(0, 0, 5) Application.OnTime dTime, "TimerStart" MsgBox "Callback " & TimeValue(dTime) End Sub Public Sub TimerKill() On Error Resume Next Application.OnTime dTime, "TimerStart", , False End Sub Public Sub CloseWB() TimerKill ThisWorkbook.Close SaveChanges:=True End Sub
在ThisWorkbook模块中：
Option Explicit Private Sub Workbook_BeforeClose(Cancel As Boolean) Run "CloseWB" End Sub Private Sub Workbook_Open() Run "TimerStart" End Sub
这对我有用。 以下情景已经过testing：
- 手动运行“TimerSet”>等待几个msgboxes>手动运行“TimerKill”。
- 手动运行“TimerSet”>等待几个msgboxes>closures工作簿。
- 打开工作簿>等待几个msgboxes>closures工作簿。
- 打开工作簿>等待几个msgboxes>使用CloseWBmacrosclosures工作簿。
我发现的是：
- 从Workbook_BeforeClose运行“TimerKill” 不起作用 。 工作簿重新打开。
- 从Workbook_BeforeClose运行“CloseWB”。
对不起，我不能解释这是为什么 。 但是，它现在应该为你工作。