CreatePivotTable方法分析和总结.docx

CreatePivotTable方法

CreatePivotTable方法

创建一个基于PivotCache对象的数据透视表。返回一个PivotTable对象。

expression.CreatePivotTable(TableDestination,TableName,ReadData,DefaultVersion)

expression 该表达式返回一个PivotCache对象。

TableDestinationVariant类型，必需。代表数据透视表目标区域（工作表中用于放置所生成的数据透视表的区域）左上角的单元格。目标区域必须位于工作簿（此工作簿应包含由expression指定的PivotCache对象）的某个工作表中。

TableName Variant类型，可选。新的数据透视表的名称。

ReadData Variant类型,可选。如果该值为True，则创建一个包含外部数据库中所有记录的数据透视表高速缓存；此高速缓存可以很大。如果该值为False，则允许在实际读取数据前将有些字段设置为基于服务器的页字段。

DefaultVersion Variant类型，可选。数据透视表的默认版本。说明

有关创建基于数据透视表高速缓存的数据透视表的另一种方法，请参阅

PivotTable对象的Add方法。

ExcelVBA教程：CreatePivotTable方法·示例

本示例在活动工作表的A3单元格上新建一个基于OLAP供应者的数据透视表高速缓存，然后基于该高速缓存新建一个数据透视表。

WithActiveWorkbook.PivotCaches.Add(SourceType:=xlExternal)

.Connection=_OLEDB;Provider=MSOLAP;Location=srvdata;Initial

Catalog=National

.CommandType=xlCmdCube

.CommandText=Array(Sales)

.MaintainConnection=True

.CreatePivotTableTableDestination:=Range(A3),_TableName:=PivotTable1

EndWith

WithActiveSheet.PivotTables(PivotTable1)

.SmallGrid=False

.PivotCache.RefreshPeriod=0With.CubeFields([state])

.Orientation=xlColumnField

.Position=1EndWith

With.CubeFields([Measures].[CountOfau_id])

.Orientation=xlDataField

.Position=1EndWith

EndWith

本示例在活动工作表的A3单元格上，通过连接到MicrosoftJet上的ADO创建一个新的数据透视表高速缓存，然后再基于该高速缓存新建一个数据透视表。

DimcnnConnAsADODB.Connection

DimrstRecordsetAsADODB.RecordsetDimcmdCommandAsADODB.Command

Opentheconnection.

SetcnnConn=NewADODB.ConnectionWithcnnConn

.ConnectionString=_Provider=Microsoft.Jet.OLEDB.4.0

.OpenC:\perfdate\record.mdb

EndWith

Setthecommandtext.

SetcmdCommand=NewADODB.Command

SetcmdCommand.ActiveConnection=cnnConnWithcmdCommand

.CommandText=SelectSpeed,Pressure,TimeFromDynoRun

.CommandType=adCmdText

.ExecuteEndWith

Opentherecordset.

SetrstRecordset=NewADODB.Recordset

SetrstRecordset.ActiveConnection=cnnConnrstRecordset.OpencmdCommand

CreateaPivotTablecacheandreport.

Setob