如何用VBA实现Queries与PivotTables的顺序刷新（解决异步问题）

核心方案 #

针对异步刷新导致VBA提前执行的问题，需对Power Query查询、数据连接、数据透视表分别做同步等待处理，确保每一步完成后再执行后续操作。以下是可直接复用的VBA代码及说明：

完整VBA代码实现 #

' 等待所有Power Query查询刷新完成
Sub WaitForQueriesToFinish()
    Dim qry As WorkbookQuery
    For Each qry In ThisWorkbook.Queries
        qry.Refresh
        ' 循环等待直到查询结束，DoEvents避免Excel假死
        Do While qry.Refreshing
            DoEvents
        Loop
    Next qry
End Sub

' 等待所有数据透视表刷新完成
Sub WaitForPivotTablesToFinish()
    Dim ws As Worksheet
    Dim pt As PivotTable
    For Each ws In ThisWorkbook.Worksheets
        For Each pt In ws.PivotTables
            pt.RefreshTable
            Do While pt.Refreshing
                DoEvents
            Loop
        Next pt
    Next ws
End Sub

' 完整的仪表盘更新流程
Sub FullDashboardUpdate()
    ' 禁用屏幕刷新和事件，提升效率并避免干扰
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    
    ' 1. 刷新所有Power Query查询
    WaitForQueriesToFinish
    
    ' 2. 刷新所有数据连接（含PowerBI实时连接）
    Dim conn As WorkbookConnection
    For Each conn In ThisWorkbook.Connections
        conn.Refresh
        Do While conn.Refreshing
            DoEvents
        Loop
    Next conn
    
    ' 3. 刷新所有初始数据透视表
    WaitForPivotTablesToFinish
    
    ' 4. 执行你的数据转换子程序（替换为实际子程序名）
    Call YourDataConversionSub
    
    ' 5. 再次刷新查询和透视表
    WaitForQueriesToFinish
    WaitForPivotTablesToFinish
    
    ' 恢复屏幕刷新和事件
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End Sub

关键细节说明 #

1. Power Query查询同步：遍历ThisWorkbook.Queries逐个刷新，通过qry.Refreshing判断状态，DoEvents让Excel在等待时处理刷新任务，避免程序假死。
2. 非OLEDB连接处理：即使PowerBI实时连接的后台刷新选项置灰，conn.Refreshing属性仍能有效判断刷新状态，无需修改连接设置。
3. 数据透视表同步：遍历所有工作表的透视表，调用RefreshTable后等待pt.Refreshing状态变为False，确保数据完全更新。
4. 依赖关系调整：若Power Query查询存在依赖（如A查询依赖B查询结果），可在WaitForQueriesToFinish中按依赖顺序手动指定刷新顺序，避免异步导致的数据错误。

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