Свойство PivotField.CubeField (Excel)
Возвращает объект CubeField , от которого происходит указанное поле сводной таблицы. Только для чтения.
Синтаксис
expression. CubeField
Выражение Переменная, представляющая объект PivotField .
Пример
В этом примере создается список имен полей куба для всех полей иерархии в первом отчете сводной таблицы на основе OLAP на первом листе. В этом примере предполагается, что отчет сводной таблицы существует на первом листе.
Sub UseCubeField()
Dim objNewSheet As Worksheet
Set objNewSheet = Worksheets.Add
objNewSheet.Activate
intRow = 1
For Each objPF in _
Worksheets(1).PivotTables(1).PivotFields
If objPF.CubeField.CubeFieldType = xlHierarchy Then
objNewSheet.Cells(intRow, 1).Value = objPF.Name
intRow = intRow + 1
End If
Next objPF
End Sub
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.