使用Workbook_BeforeCloseclosuresApplication.ontime

我仔细查看了我在这里find的每个主题，但是却无法弄清楚下面的错误。

我正在使用Application.OnTime每分钟运行一个模块。 问题是，当我closures工作表时，Excel在下一次运行macros时重新打开工作表。

我试图使用下面的修复，无济于事。

Option Explicit Dim dTime As Date Public Function AutoRun2() dTime = Now + TimeValue("00:01:00") Application.OnTime dTime, "AutoClear" End Function Sub StopAutoRun2() Application.OnTime dTime, "AutoRun2", , False End Sub 

我在ThisWorkbook中有以下内容：

 Private Sub Workbook_BeforeClose(Cancel As Boolean) Call StopAutoRun Call StopAutoRun2 End Sub 

我在这里做错了什么？

Answer 1

在停止子中将"AutoRun2"更改为"AutoClear" ，因为这是要停止使用False参数进行调度的实际macros。