挂断了＆＃34;无法获得Worksheet类的数据透视表属性＆＃34;

Question

我一直收到此错误

  

无法获取Worksheet类的PivotTables属性

来自以下代码

我不确定出了什么问题，但任何帮助都会有所帮助。

它挂在With ....End With部分。

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase,SourceData:="Report1&2!R1C1:R1048576C126", Version:=xlPivoTableVersion14).CreatePivotTable TableDestination:="EID_Graph!R1C1",TableName:="PivoTable1", DefaultVersion:=xlPivotTableVersion14

With ActiveSheet.PivotTables("PivotTable1").PivotFields("ID_1")
  .Orientation = xlRowField
  .Position = 1

End With