VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

VBA-Begriff: CubeFields-Auflistungsobjekt

Worksheets-Auflistung (Worksheet-Objekt)
PivotTable-Auflistung (PivotTable-Objekt)
CubeFields-Auflistung (CubeField-Objekt)

Eine Auflistung aller CubeField-Objekte in einem PivotTable-Bericht, der auf einem OLAP-Cube basiert. Jedes CubeField-Objekt stellt ein Hierarchie- oder Measurefeld des Cubes dar.

Verwenden der CubeFields-Auflistung

Verwenden Sie die CubeFields-Eigenschaft, um die CubeFields-Auflistung zurückzugeben. In dem folgenden Beispiel wird eine Liste der Cube-Feldnamen der Datenfelder in dem ersten OLAP-basierten PivotTable-Bericht in Sheet1 erstellt.

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

Verwenden Sie CubeFields(Index), wobei Index die Indexnummer des Cube-Feldes ist, um ein einzelnes CubeField-Objekt zurückzugeben. Im folgenden Beispiel wird der Name des zweiten Cube-Feldes im ersten PivotTable-Bericht im aktiven Tabellenblatt bestimmt.

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