| |
>アドバイスに従ったのですが、「そのピボットテーブルのフィールド名は正しく
>ありません。ピボットテーブルレポートを作成するにはラベルのついた列で
>正しく編成されたデータを使用する必要があります。」
もし、最初のソースが、そのピボット作成の全てのソースだとすると・・・
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Sheet1!R1C1:R[m]C[n]").CreatePivotTable TableDestination:="",
TableName:="ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ1", DefaultVersion:=xlPivotTableVersion10
「フィールド名は正しくない」「ラベルの列で」とある通り、
縦の見出し、横の見出し、集計対象などの以下のような
指定が抜けているように思われます。たぶんｗ(^^;
ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ1").AddFields _
RowFields:="縦見出し(縦軸にしたい項目)", _
ColumnFields:="横見出し(横軸にしたい項目)"
ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ1") _
.PivotFields("集計したい項目").Orientation = xlDataField
|
|
MMX
- 05/2/23(水) 15:31 -
