如何实现VBA MsgBox与后台查询完成同步？

你遇到的核心问题是ThisWorkbook.RefreshAll默认是异步执行的——代码会立刻跳到后续的判断逻辑，这时候后台查询还没完成，AG3的值自然还是空的，所以MsgBox不会触发。下面给你三种靠谱的解决方案，按需选择：

方法1：设置查询为同步刷新 #

直接让RefreshAll等待所有查询完成后再继续执行代码，优点是逻辑简单，缺点是大查询会卡住Excel界面，期间用户无法操作。

代码示例：

' 遍历所有查询，设置为同步刷新（关闭后台执行）
Dim qry As WorkbookQuery
For Each qry In ThisWorkbook.Queries
    qry.BackgroundQuery = False
Next qry

' 执行刷新，此时会等待所有查询完成
ThisWorkbook.RefreshAll

' 查询完成后判断并弹出提示
If Sheets(2).Range("AG3").Value <> "" Then
    MsgBox "Completed"
End If

如果只需要针对特定查询设置，直接替换循环部分为：ThisWorkbook.Queries("你的查询名称").BackgroundQuery = False

方法2：用事件监听查询完成 #

利用Excel的事件机制，在查询成功完成后自动触发提示，优点是不卡界面，后台执行也能精准捕捉完成时机。

方案A：监听QueryTable完成事件 #

如果你的数据是通过QueryTable导入的，在对应的工作表模块（比如Sheet2的代码窗口）中添加以下代码：

Private Sub Worksheet_QueryTableAfterRefresh(ByVal QueryTable As QueryTable, ByVal Success As Boolean)
    ' 仅在查询成功完成时判断
    If Success Then
        If Me.Range("AG3").Value <> "" Then
            MsgBox "Completed"
        End If
    End If
End Sub

方案B：监听目标单元格变化 #

如果AG3的值会在查询完成后更新，可在ThisWorkbook模块中添加单元格变化监听：

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    ' 检查是否是Sheet2的AG3单元格发生变化
    If Sh.Name = Sheets(2).Name And Not Intersect(Target, Sh.Range("AG3")) Is Nothing Then
        If Sh.Range("AG3").Value <> "" Then
            MsgBox "Completed"
        End If
    End If
End Sub

方法3：循环等待查询完成（兼顾后台执行） #

保持查询后台执行的同时，用循环等待所有计算/刷新完成，通过DoEvents避免Excel假死，适合不想修改查询属性的场景。

代码示例：

ThisWorkbook.RefreshAll

' 循环等待所有刷新、计算完成
Do While Application.CalculationState <> xlDone
    DoEvents ' 让Excel处理后台任务，避免界面卡死
Loop

' 刷新完成后判断并提示
If Sheets(2).Range("AG3").Value <> "" Then
    MsgBox "Completed"
End If

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