エクセルＶＢＡでピボットテーブルを作成しています。

質問

エクセルＶＢＡでピボットテーブルを作成しています。
作成まではできましたが、以下２つのＶＢＡの組み方が分からないのでおしえてください。

【質問１】
ピボットテーブルの作成先を指定できるか？
例えば、予め準備したシートに作成することは可能でしょうか？
ＶＢＡのどこを触ったら良いか分かりません。

【質問２】
作成されたピボットテーブルの列を、見出しの準備された別シートへ、それぞれ流し込むことはできるか？
例えば
ピボットテーブルが以下のように作成されたとして、
Ａ列　　Ｂ列
購入額　総計
Ａ社　　1000
Ｂ社　　2500
Ｃ社　　800

予め用意した別シート（Ａ～Ｄ列の見出しは固定）のＢ、Ｃ列にピボットのＡ、Ｂ列(最終行まで）をそれぞれ流し込みたいのです。
Ａ列(コード)　Ｂ列（購入額）　　Ｃ列(総量)　　Ｄ列(JANコード)
001　　　　　　Ａ社　　 　　　　　1000 　　　　　JAN1
002　　　　　　Ｂ社　　　　　　　 2500　　　 　　　JAN2
003　　　　　　Ｃ社　　　　　　　　800 　　　　　JAN3

流し込んだ列を元にＡ、Ｄ列にはVLOOKをかける予定です。
何か良い案があれば是非、ご教授ください。

回答No.1

end-u · ベストアンサー

>【質問１】
ピボットテーブル作成時に、『既存のワークシート』に作成する動作をマクロ記録とればわかると思いますが。
CreatePivotTableメソッドの引数、TableDestination:=... で指定します。

>【質問２】
提示レイアウト通りだったら、単純にコピーすれば良いのでは。
列の総計、ColumnGrandプロパティをFalseにして、
With ActiveSheet.PivotTables(1)
　　.ColumnGrand = False
　　.DataBodyRange.Resize(, 2).Offset(, -1).Copy Sheets("Sheet2").Range("B2")
End With
...など。