Это сработало для меня.
Моя ситуация была:
Я хотел программно установить значение фильтра сводных отчетов, который косвенно передает данные в таблицу Powerpivot. После обновления данных в таблице Powerpivot я хотел обновить таблицы Powerpivot, созданные на основе таблицы Powerpivot. Вот что я написал:
ActiveSheet.PivotTables("name").PivotFields( _
"Participant Id").ClearAllFilters
ActiveSheet.PivotTables("name).PivotFields( _
"Participant Id").CurrentPage = "Raj"
AppActivate "PowerPivot For Excel - Assessment Tool 2.xlsm"
Sheets("sheet1").PivotTables("PivotTable9").RefreshTable
Хитрость заключается в том, чтобы держать окно Powerpivot открытым перед выполнением вышеуказанного кода. Просто нажмите кнопку «Запуск окна Powerpivot» в надстройке PP в Excel.
Надеюсь, это поможет вам!