マクロでピポットテーブル更新
excel2010
excelのピポットテーブルをマクロで繰り返し動作させる方法で教えてください。
Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"R1C1:R2424C3", Version:=xlPivotTableVersion14).CreatePivotTable _
TableDestination:="", TableName:="ActiveSheet.Name", DefaultVersion _
:=xlPivotTableVersion14
上記、内容だと連続でピポットテーブル作成可能です。
データエリアが変更になった場合、R2424C3部分の範囲が変わるので、下記の様に変更しました。
Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"R1C1:R" & Cells(Rows.Count, "C").End(xlUp).Row & "C3", Version:=xlPivotTableVersion14).CreatePivotTable _
TableDestination:="", TableName:="ActiveSheet.Name", DefaultVersion _
:=xlPivotTableVersion14
上記マクロ実行すると、
実行時エラー'1004'
このコマンドにはデータソースが２行以上必要です。
選択したセル範囲が１行だけの場合は、このコマンドを実行できません。
次のいずれかの操作を行ってください。
以下省略
と表示されます。
A1からC列でデータが存在する最終行までを指定しているつもりなのですが、
どこがＮＧなのか教えていただきたく。
補足
ありがとうございます。 確認してみましたところ、列の削除はおこなっていま せんでした。 上記の原因のほかに、ピポットテーブルが壊れる要因は あるのでしょうか？ 対策＆解決方法をお願いいたします。