嗨，这个问题我之前帮不少人解决过，正好能给你靠谱的方案！你遇到的核心痛点是后台运行的Web查询没法判断何时完成，不想用生硬的Application.Wait或者无意义的循环延迟对吧？

其实PowerQuery创建的Web查询对应的连接对象本身就带有状态属性，我们可以利用它来精准等待，同时还能保持Excel可操作，不会卡住。

方法一：后台刷新+循环检测状态（推荐） #

这个方法既保留后台刷新让你能继续工作，又能精准捕获查询完成的时机，代码如下：

Sub WaitForWebQueryCompletion()
    Dim targetConn As WorkbookConnection
    ' 定位到你的目标查询连接
    Set targetConn = ActiveWorkbook.Connections("Query - USPS_ZipLookup")
    
    ' 启动后台刷新（和你原来的操作一致）
    targetConn.Refresh BackgroundQuery:=True
    
    ' 循环检测查询是否仍在运行，同时让Excel响应其他操作
    Do While targetConn.OLEDBConnection.Refreshing
        DoEvents ' 关键：释放控制权，让Excel处理你的其他操作，避免假死
    Loop
    
    ' 到这里就说明查询已经完成了，直接调用你的第二个宏
    Call YourSecondMacroName ' 替换成你实际的第二个宏名称
End Sub

为什么这个方法管用？

• targetConn.OLEDBConnection.Refreshing会实时返回True（查询运行中）或False（查询完成），完全不需要猜时间；
• DoEvents是核心，它会让Excel在等待期间继续响应用户操作，不会像Application.Wait那样锁死程序。

方法二：阻塞式刷新（简单但无法后台操作） #

如果你不需要在刷新时操作Excel，也可以直接关闭后台刷新，让Refresh方法自动阻塞直到完成，代码更简洁：

Sub RefreshQueryAndWait()
    ' 关闭后台刷新，Refresh会一直等到查询完成才继续执行后续代码
    ActiveWorkbook.Connections("Query - USPS_ZipLookup").Refresh BackgroundQuery:=False
    
    ' 查询完成后直接执行第二个宏
    Call YourSecondMacroName ' 替换成你实际的第二个宏名称
End Sub

小提示 #

如果不确定你的连接类型，可以先加一行代码确认：

MsgBox targetConn.Type ' PowerQuery的Web查询一般会返回xlConnectionTypeOLEDB（即7）

备注：内容来源于stack exchange，提问作者techtheatre