Есть Pivot таблица, в которой необходимо проверять, развернута ли структура у определенного значения. Пробовал удалять старые данные таблицы и обновлять её кэш, но безрезультатно. (Pt.PivotCache.MissingItemsLimit = xlMissingItemsNone; Pt.PivotCache.Refresh) Вылетает: "Run-time error 1004"
Код
Sub Check()
Dim pt As PivotTable
Dim pf As PivotField
Dim pi As PivotItem
Dim iFieldCount As Long
Dim iPosition As Long
Set wsosn = Лист5
Set wsdet = Лист4
wsdet.Activate
Set pt = ActiveSheet.PivotTables(3)
iFieldCount = pt.RowFields.Count - 1
FieldCount = pt.ColumnFields.Count
For Each pf In pt.RowFields
If pf.Position = iFieldCount Then
a = pf
For Each pi In pf.PivotItems
If pi.ShowDetail = True Then
MsgBox pi.Name & " " & pi.ShowDetail = Not pi.DataRange.Cells(1).ShowDetail
Exit Sub
pf.DrilledDown = False
End If
Next pi
End If
Next pf
End Sub