【VBA】ピボットテーブルを更新する

VBAで
　・ピボットテーブルを更新
できます！

VBAコード
実行結果
参考①
参考②
参考③

VBAコード

ここでは例として、
　・シート「pivot」上のピボットテーブル「サンプルピボット」を更新
します。
※ピボットテーブルの元データの値を100→999へ変更し、それをピボットテーブルへ反映(更新)します。

Option Explicit

Sub sample()

    Dim pivotSheetName As String
    Dim pivoTableName As String
    Dim pivotTable As pivotTable
    Dim pivotCache As pivotCache
    
    'ピボットテーブルがあるシート名
    pivotSheetName = "pivot"
    'ピボットテーブル名
    pivoTableName = "サンプルピボット"
    
    'ピボットテーブルを取得
    Set pivotTable = Worksheets(pivotSheetName).PivotTables(pivoTableName)
    'ピボットキャッシュを取得
    Set pivotCache = pivotTable.pivotCache
    'ピボットキャッシュをリフレッシュ
    pivotCache.Refresh

End Sub

以下を指定します(11～13行目)。
※状況に応じて任意の値を指定してください。

・ピボットテーブルがあるシート名
・ピボットテーブル名

ピボットテーブルを取得します(16行目)。
※「Worksheetオブジェクト」の「PivotTables」メソッドにより、「PivotTableオブジェクト」を取得します。

ピボットキャッシュを取得します(18行目)。
※「PivotTableオブジェクト」の「pivotCache」メソッドにより、「PivotCacheオブジェクト」を取得します。

ピボットキャッシュをリフレッシュします(20行目)。
※「PivotCacheオブジェクト」の「Refresh」メソッドにより、ピボットキャッシュをリフレッシュします。
※ピボットキャッシュをリフレッシュすることで、ピボットテーブルが更新されます。