ExcelVBA ピボットテーブルの動的レポートに役立つフィールド名取得方法

以下のようなシーンで利用されます。

1.定期的なレポート作成で、異なるデータセットをピボットテーブルに適用する

2.フィールド名を事前に取得し、自動化処理の条件設定に利用する

3.フィールド名の一覧を取得して、ユーザーに選択させるためのインターフェースを作成する

Option Explicit

Sub GetPivotTableFieldNames()
    Dim ws As Worksheet
    Dim pivotTable As pivotTable
    Dim pivotField As pivotField
    Dim fieldNames As String

    ' ピボットテーブルが存在するシートを指定
    Set ws = ThisWorkbook.Sheets("ピボットシート")
    ' ピボットテーブルを指定
    Set pivotTable = ws.PivotTables("SamplePivotTable")

    ' フィールド名を取得して表示
    For Each pivotField In pivotTable.PivotFields
        fieldNames = fieldNames & pivotField.Name & vbCrLf
    Next pivotField

    ' フィールド名をメッセージボックスで表示
    MsgBox "フィールド名の一覧:" & vbCrLf & fieldNames
End Sub

※シート名（ピボットシート）、テーブル名（SamplePivotTable）は環境に合わせて修正してご利用ください。

このコードを使うと、ピボットテーブルのすべてのフィールド名を簡単に確認できます。フィールド名を取得した後、自動化処理やフィールドの追加・削除の操作に役立てることができます。 PivotFields のプロパティを活用することで、柔軟にピボットテーブルを操作することが可能です。