一次结束宏的VBA代码

Question

我已经四处寻找了一段时间，试图找到一种方法来强制宏在下午 1:15 停止运行。我发现了一些可以在某个时间关闭工作簿的东西，但没有什么可以使工作簿保持打开状态并停止宏。我相信这与 Application.OnTime "13:15:00" 功能有关，但我不确定如何让它在下午 1:15 停止宏。

这就是我的 Excel 工作簿保持运行的原因:首先，当我打开工作簿时，会出现以下情况:

Private Sub Workbook_Open()
    If Time > TimeSerial(6, 45, 0) Then
    Call TimeStamp
    Else
    Application.Wait "06:45:00"
    Call TimeStamp
End Sub

然后将启动时间戳宏，该宏使用这些全局变量和编码每 15 分钟运行一次:

Option Explicit
Public RunWhen As Double
Public Const cRunIntervalSeconds = 900 ' 15 minutes
Public Const cRunWhat = "TimeStamp"  ' the name of the procedure to run

Sub StartTimer()
    RunWhen = Now + TimeSerial(0, 0, cRunIntervalSeconds)
    Application.OnTime EarliestTime:=RunWhen, Procedure:=cRunWhat, _
        Schedule:=True

此部分之后是我的时间戳宏，其结尾为:调用 StartTimer 以安排从当前时间开始 15 分钟后的下一次运行时间。

Answer 1

一旦晚于下午 1:15，这将停止安排下一次运行

If Time < TimeSerial(13,15,0) Then

    RunWhen = Now + TimeSerial(0, 0, cRunIntervalSeconds)
    Application.OnTime EarliestTime:=RunWhen, Procedure:=cRunWhat, _
        Schedule:=True

End If