使用Workbook_BeforeClose杀死Application.ontime

时间:2016-02-09 21:02:55

标签: excel vba excel-vba

我查看了我在这里找到的每个主题,但无法确定下面的问题。

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

我试图使用以下修复,但无济于事。

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

我在这里做错了什么?

1 个答案:

答案 0 :(得分:1)

将您的停止子中的"AutoRun2"更改为"AutoClear",因为这是您要使用False参数停止计划的实际宏。