WaitUntil 语句

REM 等到下午六点，调用 MyMacro。
REM 如果在下午六点以后，退出。
Sub ExampleWaitUntil
Dim vTimeschedule As Double
    vTimeSchedule = Date() + TimeValue("18:00:00")
    If vTimeSchedule < Now() Then Exit Sub
    WaitUntil vTimeSchedule
    Call MyMacro
End Sub