全部显示

CubeField 属性

返回派生出指定数据透视表字段的 CubeField 对象。只读。

expression   必需。该表达式返回“应用于”列表中的对象之一。

示例

本示例为第一张工作表中第一个基于 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