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

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

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

Другая non-programatic опция:

• Щелчок правой кнопкой по каждой сводной таблице
• опции Select Table
• Галочка 'Обновление на открытом' опция.
• Нажимают на кнопку OK

, Это обновит сводную таблицу каждый раз, когда рабочая книга открыта.

Существует обновление вся опция на панели инструментов Pivot Table.Все, довольно. Не должны делать ничего больше.

ctrl+alt+F5

Вы имеете набор PivotTables на объект рабочего листа VB . Так, будет работать быстрый цикл как это:

Sub RefreshPivotTables()
    Dim pivotTable As PivotTable
    For Each pivotTable In ActiveSheet.PivotTables
        pivotTable.RefreshTable
    Next
End Sub

Примечания от канавок:

1. Не забывают оставлять любые защищенные листы без защиты прежде, чем обновить PivotTable.
2. часто Сохраняют .
3. я буду думать о больше и обновлять в свое время...:)

Удачи!