求助：VBA无法刷新Power Query生成的数据透视表

核心问题在于：Power Query生成的透视表依赖PQ数据源，必须先刷新Power Query连接，再刷新透视表，很多时候VBA刷新失败是因为跳过了PQ连接的刷新步骤。以下是具体解决方案：

一、精准指定连接与透视表的VBA代码 #

先刷新Power Query的数据源连接，再逐个刷新目标透视表，代码如下：

Sub RefreshPQPivots()
    ' 1. 刷新Power Query连接（替换为你实际的PQ连接名称）
    ThisWorkbook.Connections("Query - 你的查询名称").Refresh
    
    ' 2. 刷新Sheet1中的PivotTable1
    ThisWorkbook.Worksheets("Sheet1").PivotTables("PivotTable1").RefreshTable
    
    ' 3. 刷新Sheet2中的PivotTable2
    ThisWorkbook.Worksheets("Sheet2").PivotTables("PivotTable2").RefreshTable
End Sub

如何找到PQ连接名称：点击「数据」选项卡→「连接」，在连接管理器中找到类型为「Power Query」的连接，复制它的名称替换代码中的占位符。

二、批量刷新所有Power Query连接（适合多查询场景） #

如果不确定具体的PQ连接名称，或者有多个PQ数据源，可以用这段代码批量刷新所有PQ连接：

Sub RefreshAllPQConnections()
    Dim conn As WorkbookConnection
    For Each conn In ThisWorkbook.Connections
        ' 筛选并刷新所有Power Query连接
        If conn.Type = xlConnectionTypeOLEDB And InStr(conn.OLEDBConnection.Connection, "Power Query") > 0 Then
            conn.Refresh
        End If
    Next conn
End Sub

将这段代码和透视表刷新代码结合，就能完成全流程刷新。

关键注意事项 #

• 确保所有Power Query连接都已取消「启用后台刷新」：右键连接→「属性」，取消勾选该选项，否则VBA会不等待PQ刷新完成就执行透视表刷新，导致数据未更新。
• 引用工作表和透视表时，优先使用名称（如Worksheets("Sheet1")）而非索引（如Sheets(1)），避免因工作表顺序变动导致代码失效。
• 如果透视表直接基于PQ加载的ListObject（工作表中的结构化表），也可以直接刷新该表：ThisWorkbook.Worksheets("数据源表所在Sheet").ListObjects("表名").QueryTable.Refresh

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