WaitUntil 语句

中断程序执行,直到指定的时间。

语法:

WaitUntil 时间

参数:

时间」: 日期时间表达式,在执行程序之前等待的日期与时间。

错误代码:

5 无效的过程调用

示例:


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

请支持我们!