Внесение изменений в критерии сводной таблицы Excel программно

Question

У меня есть шаблон электронной таблицы Excel, который содержит сводные таблицы с критериями, определяющими содержимое электронной таблицы.

Мне нужно программно изменить этот критерий из макроса, выполняемого в отдельной электронной таблице, чтобы в шаблоне содержалось другое содержимое.

Какая кодировка подойдет для этого?

Answer 1

Приведенный ниже код обновит фильтр отчета в сводной таблице в отдельной книге.

В этом примере фильтр отчета называется ' Местоположение ', и его значение изменяется на ' Запад '

Код предполагает, что отдельная рабочая книга уже открыта.

Sub UpdatePivotFilter()

Workbooks("Book1.xls").Sheets("Sheet1").PivotTables("PivotTable1"). _
 PivotFields("Location").CurrentPage = "West"

End Sub