AddDataField Method

expression.AddDataField(Field, Caption, Function)

expression    Required. An expression that returns one of the objects in the Applies To list.

Field   Required Object. The unique field on the server. If the source data is Online Analytical Processing (OLAP), the unique field is a cube field. If the source data is non-OLAP (non-OLAP source data), the unique field is a PivotTable field.

Caption   Optional Variant. The label used in the PivotTable report to identify this data field.

Function   Optional Variant. The function performed in the added data field.

Example

This example adds a data field titled "Total Score" to a pivot table called "PivotTable1".

Note  : This example assumes a table exists in which one of the columns contains a column titled "Score".

Sub AddMoreFields()

    With ActiveSheet.PivotTables("PivotTable1")
        .AddDataField ActiveSheet.PivotTables( _
            "PivotTable1").PivotFields("Score"), "Total Score"
    End With

End Sub