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

回答No.1

mar00 · ベストアンサー

ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)の
下の行に
ActiveSheet.Name = "ピポット"
Sheets("ピポット").Move After:=Sheets(Sheets.Count)を追加すればいいと思います。