如何实现后台查询刷新后自动运行指定Excel宏？

以下是几种可行的自动化触发方案，根据你的场景选择：

方案1：绑定数据透视表更新事件 #

数据透视表完成缓存刷新后会触发PivotTableUpdate事件，直接在目标工作表的事件代码中绑定即可：

1. 按Alt+F11打开VBA编辑器
2. 在左侧工程面板中找到MadeUpWorksheet工作表对象（不是普通模块），双击打开代码窗口
3. 粘贴以下代码：

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
    ' 仅针对目标数据透视表执行
    If Target.Name = "MadeUpPivot" Then
        ' 等待缓存刷新完成（比固定时间等待更可靠）
        Do While Target.PivotCache.Refreshing
            DoEvents
        Loop
        
        ' 执行折叠操作
        Dim pF As PivotField
        With Target
            For Each pF In .RowFields
                pF.DrillTo pF.Name
            Next pF
        End With
    End If
End Sub

说明：如果你的RefreshPivot宏是手动触发刷新，执行后会自动触发这个事件；如果设置了数据透视表自动刷新（比如定时或打开文件时刷新），刷新完成后也会自动执行折叠逻辑。

方案2：绑定外部查询完成事件（若数据源来自外部查询） #

如果数据透视表的数据源是外部QueryTable（如数据库导入、其他Excel文件查询），可以在查询完成后触发刷新和折叠：

1. 打开VBA编辑器，找到包含QueryTable的工作表，双击打开代码窗口
2. 粘贴以下代码：

Private Sub Worksheet_QueryTableAfterRefresh(ByVal Target As QueryTable, ByVal Success As Boolean)
    If Success Then ' 仅在查询成功完成时执行
        ' 刷新数据透视表缓存
        Worksheets("MadeUpWorksheet").PivotTables("MadeUpPivot").PivotCache.Refresh
        
        ' 等待刷新完成后执行折叠
        With Worksheets("MadeUpWorksheet").PivotTables("MadeUpPivot")
            Do While .PivotCache.Refreshing
                DoEvents
            Loop
            
            Dim pF As PivotField
            For Each pF In .RowFields
                pF.DrillTo pF.Name
            Next pF
        End With
    End If
End Sub

方案3：设置自动刷新+事件触发 #

如果需要数据透视表定时自动刷新并执行折叠：

• 右键数据透视表 → 「数据透视表选项」→ 「数据」标签
• 勾选「打开文件时刷新数据」，或点击「刷新频率」设置定时刷新间隔
• 配合方案1的PivotTableUpdate事件，即可实现刷新完成后自动折叠

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