Свойство PivotTable.CubeFields (Excel)
Возвращает коллекцию CubeFields . Каждый объект CubeField содержит свойства элемента поля куба. Только для чтения.
expression. CubeFields
Выражение Переменная, представляющая объект сводной таблицы .
В этом примере создается список имен полей куба для полей данных в первом отчете сводной таблицы на основе OLAP на листе Sheet1.
Set objNewSheet = Worksheets.Add
objNewSheet.Activate
intRow = 1
For Each objCubeFld In Worksheets("Sheet1").PivotTables(1).CubeFields
If objCubeFld.Orientation = xlDataField Then
objNewSheet.Cells(intRow, 1).Value = objCubeFld.Name
intRow = intRow + 1
End If
Next objCubeFld
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.