CubeFields Object

Example

Use the CubeFields property to return the CubeFields collection. The following example creates a list of cube field names of the data fields in the first OLAP-based PivotTable report on Sheet1.

Set objNewSheet = Worksheets.Add 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

Use CubeFields(), where is the cube field's index number, to return a single CubeFieldobject. The following example determines the name of the second cube field in the first PivotTable report on the active worksheet.

strAlphaName = _ ActiveSheet.PivotTables(1).CubeFields(2).Name

See also:

• Excel Object Model Reference
• CubeFields Object Members