Returns an object that represents either a single PivotTable field (a PivotField object) or a collection of all the fields (a PivotFields object) that are currently shown as data fields. Read-only.
expression.DataFields(Index)
expression Required. An expression that returns a PivotTable object.
Index Optional Variant. The field name or number (can be an array to specify more than one field).
Example
This example adds the names for the PivotTable data fields to a list on a new worksheet.
Set nwSheet = Worksheets.Add
nwSheet.Activate
Set pvtTable = Worksheets("Sheet2").Range("A1").PivotTable
rw = 0
For Each pvtField In pvtTable.DataFields
rw = rw + 1
nwSheet.Cells(rw, 1).Value = pvtField.Name
Next pvtField