Привет У меня есть сводная таблица, которую мне нужно обновить командой VBA. Однако, когда я обновляю сводную команду, она исключает некоторые требуемые значения метки столбца. Я считаю, что мне нужно изменить Pivot Cache, который был настроен изначально, но не уверен, как это сделать? (Может кто-нибудь посоветовать, как это сделать?)Pivot Cache Обновить VBA
код я использую ниже:
Worksheets("Summary by Account").PivotTables("PivotTable1").RefreshTable
Dim pt As PivotTable
Dim pf As PivotField
Dim pi As PivotItem
For Each pt In ActiveSheet.PivotTables
pt.ManualUpdate = True
pt.PivotCache.MissingItemsLimit = xlMissingItemsNone
For Each pf In pt.PivotFields
If pf.Orientation <> 0 Then
If pf.Orientation = xlPageField Then
pf.CurrentPage = "(All)"
Else
For Each pi In pf.PivotItems
pi.Visible = True
Next pi
End If
End If
Next pf
pt.ManualUpdate = False
Next pt
Set pi = Nothing
Set pf = Nothing
Set pt = Nothing
Set wks = Nothing
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Nominal/Category")
.PivotItems("(blank)").Visible = False
End With