如何控制VBA仅允许1个application.ontime实例运行

Question

我有一个使用application.ontime的时间循环，该循环每隔5分钟将一个单元工作簿中的单元格块复制并粘贴到另一个工作簿中。 它会不时地复制和粘贴重复项，使我怀疑它正在运行多个实例。 有没有办法阻止它的多个版本同时运行？ 还是有一种方法可以检查它在特定时间正在运行（挂起）的实例数？

到目前为止，我的application.ontime中包含以下内容：

Sub timer()

    If Hour(Time) <= 16 Or Hour(Time) >= 18 Then

        Application.OnTime TimeSerial(Hour(Time), Application.WorksheetFunction.Floor(Minute(Time), 5), 0) + TimeValue("00:05:00"), "dataextract", , True

    End If


End Sub

第二个问题：我不太了解它的详细工作原理。 假设我在6:30 pm启动一个实例...直到9pm都可以正常工作，然后我开始获取副本。 破坏VBA时，出现三个弹出错误，而不是一个，确认有多个实例正在运行。 但是我不知道是什么原因导致它重复？ 可能是我昨天晚上9点启动了application.ontime并重新启动了吗？

Answer 1

您可以存储计划的时间并在创建下一个计划任务之前取消上一个计划。

On Error Resume Next
Application.OnTime EarliestTime:=Range("NextSchedule"), Procedure:="dataextract", Schedule:=False
On Error GoTo 0

Range("NextSchedule") = TimeSerial(Hour(Now), Application.WorksheetFunction.Floor(Minute(Time), 5) + 5, 0)

Application.OnTime EarliestTime:=Range("NextSchedule"), Procedure:="dataextract", Schedule:=True