如何使用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