В 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