зависает в «Невозможно получить свойство сводной таблицы класса Worksheet»

Я продолжаю получать эту ошибку

Не удалось получить свойство PivotTables класса Worksheet

из приведенного ниже кода

• XSSF (Apache POI) - добавление нескольких ярлыков столбцов из значения одного столбца в сводной таблице
• Доля PivotCache для сводных таблиц, построенных с использованием модели данных
• Есть ли способ FreezePanes (в сводной таблице) в ячейках Aspose?
• Сотовый адрес таблицы значений столбцов
• Сводные таблицы - VBA

Я не уверен, что не так, но любая помощь будет полезна.

Он повесил трубку With ....End With part.

 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