Excel 2013 vba - Обновить сводные таблицы - Loop

Question

У меня есть некоторый код vb, который обновит мои сводные таблицы для меня, есть ли способ сделать это, чтобы я мог обновлять сводные таблицы с 1 по 20? Вместо того, чтобы листинг 20 строк кода ниже Eg

ActiveWorkbook.PivotTables(1).PivotCache.Refresh 
ActiveWorkbook.PivotTables(2).PivotCache.Refresh 
ActiveWorkbook.PivotTables(3).PivotCache.Refresh 

Etc ..

Большое спасибо заранее!

Answer 1

В качестве примера: Если вы хотите, чтобы обновить все шарнирные тайники в вашей книге, вы можете сделать что-то вроде этого:

Sub RefreshPivotCache() 
    Dim ws As Worksheet 
    Dim PT As PivotTable 

    For Each ws In ActiveWorkbook.Worksheets '<~~ Loop all worksheets in workbook 
     For Each PT In ws.PivotTables  '<~~ Loop all pivot tables in worksheet 
      PT.PivotCache.Refresh 
     Next PT 
    Next ws 
End Sub 

Answer 2

попробовать это:

Option Explicit

Sub RefresfPivotTables() 

Sheets("YOUR_SHEET").Select 

Dim i As Integer 

For i = 1 To 20 

    ActiveSheet.PivotTables("PivotTable" & i).PivotCache.Refresh 

Next i 

End Sub 

Answer 3

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

Sub RefreshPivotData() 
Dim pvotCht As PivotTable, Sheet As Worksheet 
    For Each Sheet In ThisWorkbook.Worksheets 
     For Each pvotTbl In Sheet.PivotTables 
      pvotTbl.RefreshTable 
      pvotTbl.Update 
     Next 
    Next 
ThisWorkbook.Save 
End Sub