This documentation is archived and is not being maintained.

CubeField.CreatePivotFields Method

Office 2007
The CreatePivotFields method is new in Microsoft Office Excel 2007. It enables users to apply a filter to PivotFields not yet added to the PivotTable by creating the corresponding PivotField object.

Version Information
 Version Added:  Excel 2007



expression   A variable that represents a CubeField object.


In OLAP PivotTables, PivotFields do not exist until the corresponding CubeField is added to the PivotTable. The CreatePivotFields method enables users to create all PivotFields of a CubeField. Users can also add filters to the PivotFields and set properties on them before the CubeField is added to the PivotTable.


Visual Basic for Applications
Sub FilterFieldBeforeAddingItToPivotTable()

     ActiveSheet.PivotTables("PivotTable1").PivotFields("[Date].[Fiscal].[Fiscal Year]").VisibleItemsList =

        Array("[Date].[Fiscal].[Fiscal Year].&[2003]", "[Date].[Fiscal].[Fiscal Year].&[2004]", "[Date].[Fiscal].[Fiscal Year].&[2005]")

    ActiveSheet.PivotTables("PivotTable1").PivotFields( _
        "[Date].[Fiscal].[Fiscal Semester]").VisibleItemsList = Array("")

    ActiveSheet.PivotTables("PivotTable1").PivotFields( _
        "[Date].[Fiscal].[Fiscal Quarter]").VisibleItemsList = Array("")

    ActiveSheet.PivotTables("PivotTable1").PivotFields("[Date].[Fiscal].[Month]"). _
        VisibleItemsList = Array("")

    ActiveSheet.PivotTables("PivotTable1").PivotFields("[Date].[Fiscal].[Date]"). _
        VisibleItemsList = Array("")
End Sub