Excelマクロ ピボットテーブル シート名指定
お世話になります。
マクロでピボットテーブルを作成しようと思い、一連の動作をマクロ記録しましたところ下記のコードが記録されました。動作は問題ないのですが、ピボットテーブルが作成されるシート名や場所が指定できません。
出来れば、ピボットテーブルを作成するシート名は"ピボット"にして一番右端に配置したいのですが下下記のコードのどこを直せば(または追加)よいのか、どなたかご教授いただけますでしょうか?
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Sheet1!R1C1:R15C4").CreatePivotTable TableDestination:="", TableName:= _
"ピボットテーブル2", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveSheet.PivotTables("ピボットテーブル2").PivotFields("納品日").Subtotals = Array( _
False, False, False, False, False, False, False, False, False, False, False, False)
ActiveSheet.PivotTables("ピボットテーブル2").PivotFields("地区").Subtotals = Array( _
False, False, False, False, False, False, False, False, False, False, False, False)
ActiveSheet.PivotTables("ピボットテーブル2").PivotFields("商品").Subtotals = Array( _
False, False, False, False, False, False, False, False, False, False, False, False)
ActiveSheet.PivotTables("ピボットテーブル2").AddFields RowFields:=Array("納品日", "地区" _
), ColumnFields:="商品"
ActiveSheet.PivotTables("ピボットテーブル2").PivotFields("出荷数量").Orientation = _
xlDataField
ActiveWorkbook.ShowPivotTableFieldList = True
よろしくお願い致します。
環境
Windows XP SP3
Excel2003
お礼
qualheart 様 早速のご回答ありがとうございます!! ヘルプとは盲点でした。。 次回からは、まずはヘルプに当たってみます。 これから検索が随分ラクになりそうで嬉しいです。 どうもありがとうございます!