如何在宏中实现延迟以等待外部API完成事件处理？

嘿，这个问题我太熟了！调用外部API时，普通的阻塞式延迟（比如Sleep或者Application.Wait）经常会坑人——它们会把整个VBA进程卡死，导致外部API根本没法完成它的选择操作。而你试的GetTickCount/timeGetTime如果没配合正确的事件处理，也会因为占满CPU、不让系统处理外部消息而失败。

下面给你两个亲测有效的解决方案：

方案1：用**DoEvents**+时间循环（最推荐） #

这个方法的核心是在等待过程中不断调用**DoEvents**，让系统有机会处理外部API的事件和消息，同时用时间戳精准控制延迟时长。

直接上代码，你可以把这个函数放到你的模块里：

Sub WaitWithDoEvents(DelayInSeconds As Double)
    Dim StartTime As Double
    StartTime = Timer ' 获取当前系统时间（从午夜开始的秒数）
    
    Do While Timer < StartTime + DelayInSeconds
        DoEvents ' **关键**！让出CPU，让系统处理外部API的操作
    Loop
End Sub

用的时候超简单：

' 先调用你的外部API执行选择操作
Call YourExternalAPISelectFunction()
' 等2秒让API处理完
WaitWithDoEvents 2

要是担心延迟跨午夜（虽然概率极低），可以换用Now来计算：

Sub WaitWithDoEventsCrossMidnight(DelayInSeconds As Double)
    Dim StartTime As Date
    StartTime = Now
    
    Do While DateDiff("s", StartTime, Now) < DelayInSeconds
        DoEvents
    Loop
End Sub

方案2：拆分Sleep配合**DoEvents**（适合习惯用API的同学） #

如果你偏爱用Windows的SleepAPI，可以把长延迟拆成多个短Sleep，中间插**DoEvents**，这样既保证延迟，又不会完全阻塞进程。

首先在模块顶部声明API（兼容32/64位VBA）：

#If VBA7 Then
    Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)
#Else
    Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#End If

然后写个包装函数：

Sub SleepWithDoEvents(Milliseconds As Long)
    Dim i As Long
    ' 每100毫秒睡一次，中间给系统留时间处理事件
    For i = 1 To Milliseconds \ 100
        Sleep 100
        DoEvents
    Next i
    ' 处理剩下的不足100毫秒的部分
    If Milliseconds Mod 100 > 0 Then
        Sleep Milliseconds Mod 100
        DoEvents
    End If
End Sub

使用示例：

Call YourExternalAPISelectFunction()
SleepWithDoEvents 2000 ' 等待2000毫秒=2秒

为啥之前的方法不管用？ #

• Application.Wait：它会让Excel（或你的宿主程序）进入完全等待状态，期间不处理任何外部消息，外部API的操作自然没法推进。
• Sleep：直接阻塞整个进程，系统根本没时间处理外部API的事件队列，API操作直接卡住。
• GetTickCount/timeGetTime：如果只是单纯循环判断时间却不调用**DoEvents**，会把CPU占满，同时不让系统处理其他事件，API同样完不成任务。

内容的提问来源于stack exchange，提问作者Tragamor