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

'PivotCache変数に代入して再利用のテストをしてみる
Sub PivotTbleSample()
    Dim pvc As PivotCache
    Dim pvt As PivotTable
    Dim i As Long
    'PivotCachesとPivotTableを別けてオブジェクト変数に代入
    Set pvc = ActiveWorkbook.PivotCaches.Create(xlDatabase, "テーブル1")
    'テストのため3回ループさせる
    For i = 1 To 3
    pvc.CreatePivotTable Sheets.Add.Range("A3")
    With ActiveSheet.PivotTables(1)
        .PivotFields("調査年").Orientation = xlRowField
        .PivotFields("男女別").Orientation = xlRowField
        .PivotFields("男女別").PivotItems("総数").Visible = False
        .PivotFields("年齢（５歳階級）").Orientation = xlColumnField '6
        .PivotFields("value").Orientation = xlDataField '.Function = xlSum
    End With
    Next
End Sub

Sub Macro1()
    Range("A3").Select
    ActiveSheet.PivotTables("ピボットテーブル1").PivotCache.Refresh
End Sub

'ピボットテーブルをすべて更新する
Sub PivotCacheRefresh()
　　Dim pvt As PivotTable
　　For Each pvt In ActiveSheet.PivotTables
　　　　pvt.PivotCache.Refresh
　　Next
End Sub

'ワークブック内のすべてのピボットキャッシュを更新する
Sub RefreshAllPivotCache()
    Dim pvc As PivotCache
    For Each pvc In ActiveWorkbook.PivotCaches
        pvc.Refresh
    Next
End Sub

'すべてのピボットテーブルを更新する
Sub RefreshAllPivotTables()
    Dim pt As PivotTable
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        For Each pt In ws.PivotTables
            If pt.RefreshTable Then
                MsgBox pt.Name & "を更新しました！"
            Else: MsgBox pt.Name & "を更新できませんでした！"
            End If
        Next pt
    Next ws
End Sub