記録したマクロエラー：メソッド「CreatePivotTable」オブジェクトの「PivotCacheは、」私は、既存のシートにピボットテーブルを作成するためのマクロを記録したが、エラーを取得しています

Question

を失敗しました：メソッド「CreatePivotTable」オブジェクトの「PivotCacheは」失敗しました。このエラーを取り除く方法について本当に助けに感謝します！ありがとう。

Sub MakePivot() 

ActiveWindow.SmallScroll ToRight:=-45 
Columns("A:Y").Select 
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= 
    "New!R1C1:R1048576C25", Version:=xlPivotTableVersion14). 
    CreatePivotTable TableDestination:="", TableName:= _ 
    "PivotTable1", DefaultVersion:=xlPivotTableVersion14 

With ActiveSheet.PivotTables("PivotTable1").PivotFields("____") 
    .Orientation = xlRowField 
    .Position = 1 
End With 
ActiveSheet.PivotTables("PivotTable1").AddDataField ActiveSheet.PivotTables(_ 
    "PivotTable1").PivotFields("______"), "Count of ______", xlCount 
ActiveSheet.PivotTables("PivotTable1").AddDataField ActiveSheet.PivotTables(_ 
    "PivotTable1").PivotFields("Value "), "Count of Value ", xlCount 
ExecuteExcel4Macro _ 
    "PIVOT.FIELD.PROPERTIES(""PivotTable1"",""Count of ______"",,,2)" 
ExecuteExcel4Macro _ 
    "PIVOT.FIELD.PROPERTIES(""PivotTable1"",""Count of Value "",,,2)" 
End Sub 

Answer 1

この行を変更してみてください：

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _ 
    "New!R1C1:R1048576C25", Version:=xlPivotTableVersion14). _ 
    CreatePivotTable TableDestination:="", TableName:= _ 
    "PivotTable1", DefaultVersion:=xlPivotTableVersion14 

あなたは、行の末尾にアンダースコアのうちの2つを削除しました。これらは、コード行が次の行まで続くことをExcelが認識するために必要です。