|
はじめまして。
VBAを使って、ピボットテーブルを作成したいのですが、うまくいきません。
下記のように、コードを作成したのですが、
作成先を【新規ワークシート】にすると、うまく動くのに、
【既存のワークシート】にするとどうしてもうまくいきません。
エラーがでてしまいます
内容は、
”WorksheetクラスのPivotTablesプロパティを取得できません”
一リスト範囲を設定し、既存のシートにピボットを作成するにはどうしたらいいのでしょうか?
何度試してもうまくいきません・・・
初心者な私に教えてください
よろしくお願いします
因みに下記のように作成しました↓
Range("A1:C23").Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Sheet1!R1C1:R23C3").CreatePivotTable TableDestination:="[Book1]Sheet3!R4C1" _
, TableName:="ピボットテーブル2", DefaultVersion:=xlPivotTableVersion10
’ココでエラーがでてしまいます↓
ActiveSheet.PivotTables("ピボットテーブル2").AddFields RowFields:="分類", _
ColumnFields:="日付"
ActiveSheet.PivotTables("ピボットテーブル2").PivotFields("金額").Orientation = _
xlDataField
Range("K11").Select
すみませんが、アドバイスよろしくお願いします
|
|