Я новичок в VBA и пытаюсь обновить диапазоны всех сводных таблиц на данном листе.
это кусок кода, который я использую
For Each pvtbl In DashboardSheet.PivotTables
'change the Ranges
DashboardSheet.PivotTables(pvtbl.Name).ChangePivotCache
ActiveWorkbook.PivotCaches.Create _
(SourceType:=xlDatabase, SourceData:=NewRangeName)
Next
Это прекрасно работает, но, к сожалению, имеет 2 вопроса
1 - если я пытаюсь добавить слайсер, я не вижу соединений отчета, чтобы связать слайсер со всеми центрами (все центры имеют одинаковый исходный диапазон)
2 - если у меня уже есть слайсер, этот код не работает
одна из ошибок, которые я получаю, это когда я открываю файл и пытаюсь отфильтровать
«Отчет сводной таблицы был сохранен без базовых данных»
Большое спасибо за вашу помощь, так как я исследовал в Интернете, но не могу понять, что я делаю неправильно