Свойство 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 и обратная связь.