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