Объект CubeField (Excel)
Представляет иерархию или поле меры из куба OLAP. В отчете сводной таблицы объект CubeField является членом коллекции CubeFields .
Используйте свойство CubeField объекта PivotField , чтобы вернуть объект CubeField . В этом примере создается список имен полей куба для всех полей иерархии в первом отчете сводной таблицы на основе OLAP на листе Sheet1.
Set objNewSheet = Worksheets.Add
objNewSheet.Activate
intRow = 1
For Each objPF in _
Worksheets("Sheet1").PivotTables(1).PivotFields
If objPF.CubeField.CubeFieldType = xlHierarchy Then
objNewSheet.Cells(intRow, 1).Value = objPF.Name
intRow = intRow + 1
End If
Next objPF
Используйте CubeFields (index), где index — это номер индекса поля куба, чтобы вернуть один объект CubeField . В следующем примере определяется имя второго поля куба в первом отчете сводной таблицы на активном листе.
strAlphaName = _
ActiveSheet.PivotTables(1).CubeFields(2).Name
- AllItemsVisible
- Application
- Caption
- Creator
- CubeFieldSubType
- CubeFieldType
- CurrentPageName
- DragToColumn
- DragToData
- DragToHide
- DragToPage
- DragToRow
- EnableMultiplePageItems
- FlattenHierarchies
- HasMemberProperties
- HierarchizeDistinct
- IncludeNewItemsInFilter
- IsDate
- LayoutForm
- LayoutSubtotalLocation
- Name
- Orientation
- Parent
- PivotFields
- Position
- ShowInFieldList
- TreeviewControl
- Value
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.