Objeto da coleção CubeFields

Worksheets (Worksheet) PivotTables (PivotTable) CubeFields (CubeField)

Uma coleção de todos os objetos CubeField em um relatório de tabela dinâmica, que é baseado em um cubo OLAP. Cada objeto CubeField representa um campo de hierarquia ou medida do cubo.

Usando a coleção CubeFields

Use a propriedade CubeFields para retornar a coleção CubeFields. O exemplo a seguir cria uma lista de nomes de campo de cubo dos campos de dados no primeiro relatório de tabela dinâmica baseado em OLAP em 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(index), onde index é o número de índice do campo de cubo, para retornar um único objeto CubeField. O exemplo a seguir determina o nome do segundo campo de cubo no primeiro relatório de tabela dinâmica na planilha ativa.

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