Страницы: 1
RSS
Ошибка свойства Pivotitem.Showdetail, Pivot + VBA
 
Здравствуйте, коллеги!

Есть 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
Изменено: nirvanana - 03.07.2020 15:24:25
 
Еще бы файл увидеть...
 
К сожалению, я не могу предоставить исходный файл из соображений конфиденциальности.
 
Поработайте над созданием и публикацией примера, в котором воспроизводится эта ошибка.
Изменено: sokol92 - 03.07.2020 18:30:57
Владимир
Страницы: 1
Наверх