Обновление всех сводных таблиц в моей книге Excel с помощью макроса

Этот код VBA обновит все vba сводные таблицы/диаграммы refresh в рабочей книге.

Sub RefreshAllPivotTables()

Dim PT As PivotTable
Dim WS As Worksheet

    For Each WS In ThisWorkbook.Worksheets

        For Each PT In WS.PivotTables
          PT.RefreshTable
        Next PT

    Next WS

End Sub

Другой непрограммный excel-macro вариант:

• Щелкните правой кнопкой мыши на каждой сводной таблице
• Выберите параметры таблицы
• Установите флажок «Обновлять при открытии».
• Нажмите кнопку ОК

Это будет обновлять excel сводную таблицу каждый раз refresh при открытии книги.