Недопустимая процедура Ошибка при изменении источника сводной таблицы? - PullRequest
Новая
       25

Недопустимая процедура Ошибка при изменении источника сводной таблицы?

0 голосов
/ 14 декабря 2018

Я пытаюсь установить формулу, которая выбирает новый источник для уже существующей сводной таблицы.По какой-то причине я получаю неверную ошибку процедуры.Любой совет, что случилось? 

Set Data_Sheet = ActiveWorkbook.Worksheets("QueryResults")
Set Pivot_Sheet = ActiveWorkbook.Worksheets("Summary")
PivotName = "PivotTable1"
NewRange = Sheets("QueryResults").Range("$A$1:$AY$200")

ActiveWorkbook.Worksheets("Summary").PivotTables(PivotName). _
ChangePivotCache ActiveWorkbook. _
PivotCaches.Create(SourceType:=xlDatabase, SourceData:=NewRange)
...