返回 CubeFields 集合。每个 CubeField 对象都包含多维数据集字段元素的属性。只读。
本示例为工作表 Sheet1 上第一个基于 OLAP 的数据透视表中的数据字段,创建一个多维数据集字段名称列表。
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