Excel VBA如何等待多个QueryTable全部刷新完成后再执行后续代码

注意：如果你不需要并行刷新来节省时间，直接把BackgroundQuery参数设为False即可，VBA会自动等待当前刷新完成再执行下一行代码，不需要额外的等待逻辑。但这种方式下两个QueryTable会串行刷新，总耗时是两个刷新时间之和；而异步并行刷新的总耗时仅和耗时更长的单个刷新一致，适合需要提升效率的场景。

方法1：轮询检查刷新状态（最简单易实现） #

触发所有异步刷新后，循环检测每个QueryTable的Refreshing属性，直到所有对象的刷新状态都为False再继续执行后续代码，加入DoEvents避免界面无响应：

' 原有刷新代码
With shExpAvlb.[export_availability].ListObject.QueryTable
    .CommandText = "SELECT * FROM [export_availability] where Country='" & str_Country & "'"
    .Refresh BackgroundQuery:=True
End With

With shProd.[production].ListObject.QueryTable
    .CommandText = "SELECT * FROM [production] where Country='" & str_Country & "'"
    .Refresh BackgroundQuery:=True
End With

' 新增等待逻辑
Do
    ' 每次间隔100毫秒检查，降低CPU占用
    Application.Wait Now + TimeValue("00:00:00.1")
    DoEvents ' 释放控制权给Excel处理刷新进程，避免界面假死
Loop Until Not shExpAvlb.[export_availability].ListObject.QueryTable.Refreshing _
    And Not shProd.[production].ListObject.QueryTable.Refreshing

' 此处编写刷新完成后要执行的后续逻辑

• 优点：不需要额外配置，直接插入代码即可使用，适合少量QueryTable的场景
• 缺点：存在轮询开销，刷新时间较短的场景下感知不明显

方法2：AfterRefresh事件回调（更优雅的方案） #

如果刷新任务较多，或者需要针对刷新结果做精细化处理，可以用类模块监听QueryTable的AfterRefresh事件，统计完成的刷新数量，全部完成后自动触发后续逻辑：

1. 插入一个类模块，命名为clsQueryTableWatcher，写入以下代码：

Private WithEvents qt As Excel.QueryTable
Private completedCount As Long
Private totalCount As Long

Public Sub Init(qtToWatch As Excel.QueryTable, total As Long)
    Set qt = qtToWatch
    totalCount = total
    completedCount = 0
End Sub

Private Sub qt_AfterRefresh(ByVal Success As Boolean)
    ' 可自行添加刷新失败的错误处理逻辑
    If Success Then completedCount = completedCount + 1
    ' 所有刷新完成时调用后续逻辑
    If completedCount = totalCount Then
        Call 你定义的后续逻辑过程名
    End If
End Sub

2. 在普通模块顶部声明模块级对象集合（避免过程结束后监听器被自动释放），在主过程中绑定监听器即可：

' 普通模块顶部声明，模块级变量
Private qtWatchers As Collection

Sub 你的主过程名()
    ' 原有代码逻辑
    Set qtWatchers = New Collection
    Dim watcher As clsQueryTableWatcher
    
    ' 给第一个QueryTable绑定监听器
    Set watcher = New clsQueryTableWatcher
    watcher.Init shExpAvlb.[export_availability].ListObject.QueryTable, 2
    qtWatchers.Add watcher
    
    ' 给第二个QueryTable绑定监听器
    Set watcher = New clsQueryTableWatcher
    watcher.Init shProd.[production].ListObject.QueryTable, 2
    qtWatchers.Add watcher
    
    ' 原有触发刷新的代码
    ' ...
End Sub

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