Programming Excel with VBA and .NET

Name

pivotcache.CreatePivotTable(TableDestination, [TableName], [ReadData], [DefaultVersion])

Synopsis

Creates a pivot table from the pivot cache and returns the created PivotTable object.

Argument	Settings
TableDestination	The Range object indicating the location of the upper-left corner for the new pivot table.
TableName	A name to assign to the pivot table. Default is PivotTable n.
ReadData	If SourceType is xlExternal, True reads all of the fields from the data source and False delays retrieving the data until the pivot cache is refreshed. Default is True.
DefaultVersion	The Excel version assigned to pivot table. Can be xlPivotTableVersion10, xlPivotTableVersion2000, or xlPivotTableVersionCurrent.

The following code creates a new pivot table from an existing pivot cache:

Sub CreatePivotTableFromExistingCache(  )
    Dim pc As PivotCache, pt As PivotTable
    ' Get an existing pivot cache.
    Set pc = ActiveWorkbook.PivotCaches(1)
    ' Create a new pivot table (shares cache).
    Set pt = pc.CreatePivotTable(Worksheets.Add(  ).[a3], "NewPivotTable")
    ' Select the pivot table.
    pt.TableRange2.Select
End Sub