|
ピボットテーブルのマクロでエラーになり、原因が分かりません。
エラー:実行時エラー'1004'
worksheetクラスのPivotTablesプロパティを取得できません。
エラー行は、PivotFields("定数")の行です。
よろしくお願いします。
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Sheet1!R3C1:R" & Range("E65536").End(xlUp).Row & "C7").CreatePivotTable TableDestination:= _
"'[Sampleデータ.xls]Sheet5'!R3C1", TableName:="ピボットテーブル1", DefaultVersion:= _
xlPivotTableVersion10
ActiveSheet.Cells(3, 1).Select
With ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("定数")
.Orientation = xlRowField
.Position = 1
End With
Sampleデータ.Sheet1
A B C D E F
1
2 日付 規格A 規格B 規格C 規格D 定数
3 2008/12/2 abc def uuu www 50
4 2008/12/2 kkk djj oui swe 20
|
|