ピボットテーブルを作成しようとしていますが、取得していInvalid Procedure Call or Argument
ます。
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:="rng", Version:=xlPivotTableVersion14).CreatePivotTable TableDestination:="rngB", TableName:="pvtReportA_B", DefaultVersion:=xlPivotTableVersion14
rng
(ソース)は、約20列と数千行で構成される範囲です。rngB
(宛先)は、別のワークシートの単一のセルです
誰かが私がどこで間違っているのかアドバイスできますか?
編集:
私のせいで、私はソースとしてではrngData
なく、使用するべきでした。rng
Set rng = wsA.Range("C14")
Set rngData = Range(rng, rng.End(xlToRight))
Set rngData = Range(rng, rng.End(xlDown))
Set rngB = wsB.Range("C8")
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=rngData, Version:=xlPivotTableVersion14).CreatePivotTable TableDestination:=rngB, TableName:="pvtReportA_B", DefaultVersion:=xlPivotTableVersion14
これにより、ピボットテーブルフレームが正常に表示されます。