vba - 如何使用 VBA 刷新数据透视表

Question

我试图弄清楚如何刷新数据透视表。当它到达 pt.RefreshTable 时，我收到一条错误消息我试过.RefreshTable和 .PivotCache.Refresh他们都给了我错误代码1004。

Sub RefreshAllPivotTables()
Dim pt As PivotTable
activateSheet ("Sheet2")
Set pt = ActiveSheet.PivotTables("PivotTable3")
pt.RefreshTable
End Sub

Sub activateSheet(sheetname As String)
Worksheets("Sheet2").Activate
End Sub

Answer 1

该问题的解决方案是使用 .Update而不是 .RefreshTable

Sub RefreshAllPivotTables()
    Dim pt As PivotTable
    activateSheet ("Sheet2")
    Set pt = ActiveSheet.PivotTables("PivotTable3")
    pt.Update
End Sub