Обновление только одной сводной таблицы

Question

В Excel 2013 у меня есть две сводные таблицы с именем «A» и «B». Мне нужно обновить только одну сводную таблицу («B») на листе моей книги для сравнения.

Я пробовал все ниже, и он выглядит так, как будто он должен работать по мере необходимости - но ни один из них не будет (то есть оба опорных пункта будут обновляться после запуска любого из решений). Я попытался изменить параметры данных сводной таблицы для всех возможных комбинаций без изменения результата.

Sub refresh_pivot1() 

'================================================= 
Windows("File.xlsx").Activate 
Sheets("Pivots").Select 
'================================================= 
ActiveSheet.PivotTables("B").PivotCache.Refresh 
'================================================= 
Worksheets("Pivots").PivotTables("B").RefreshTable 
'================================================== 

Dim PvtTbl As PivotTable    

For Each PvtTbl In Worksheets("Pivots").PivotTables    

    If PvtTbl = "B" Then            
     PvtTbl.RefreshTable   
    End If    

Next 

'=================================================   
Range("G3:K12").Calculate    
'=================================================   
Dim pt As PivotTable    
Set pt = ActiveSheet.PivotTables("B")   
pt.RefreshTable    
'================================================= 

End Sub 

Answer 1

Если оба PivotTables основаны на том же источнике данных, то они разделяют то, что называется PivotCache. Когда вы обновляете сводную таблицу, вы фактически обновляете базовый PivotCache, а не отдельную сводную таблицу. Это означает, что когда вы обновляете один PivotTable, вы фактически обновляете * все 'сводные таблицы, которые разделяют этот кеш.

Вам нужно указать Excel, чтобы назначить свою вторую сводную таблицу другому кэшу. См. http://www.contextures.com/xlPivot11.html для кода о том, как это сделать (в частности, раздел «Создать новый опорный кэш для выбранной сводной таблицы») или дать вращаться Google.