ピボットフィールドの入れ替え

質問

Excel2003を使用しております。

ピボットテーブルを利用してレポートを作成しています。
一つのデータに外貨と円貨があり、場合によって集計の項目を円貨または外貨に換えたいと思っております。

円貨と外貨とスイッチさせる時にエラー（集計項目が円貨と外貨二つになってしまったり、項目がないのでダメ、など）がでます。

.PivotFields("円貨").Orientation = xlDataField

xlDataField　の取得（項目数と名前）ができたら、スムーズにできるのではないかと思うのですが、そのあたりご教授願えるとありがたいです。

よろしくお願いいたします。

回答No.1

end-u

>xlDataField　の取得（項目数と名前）ができたら、
Dim pf As PivotField
With ActiveSheet.PivotTables(1)
　　Debug.Print .DataFields.Count
　　For Each pf In .DataFields
　　　　Debug.Print pf.Name
　　Next
End With
...とか。

他、PivotTableなどの構造を調べるのは、
[ローカルウィンドウ]を活用すると良いでしょう。
Sub try()
　　Dim pv As PivotTable
　　Set pv = ActiveSheet.PivotTables(1)
　　Stop 'ここで[ローカルウィンドウ]で探ってみる。
　　Set pv = Nothing
End Sub