如何用vba创建数据透视表?

用vba创建数据透视表可以使用PivotCaches对象的Create方法先创建一个透视表的缓存对象PivotCache

然后再用创建的PivotCache对象的CreatePivotTable方法创建PivotTable对象。

PivotCaches对象的Create方法的语法如下:

其中SourceType参数可以是xlConsolidation 、xlDatabase、 xlExternal  ,SourceData参数是具体的数据源,Version参数是具体的透视表的版本,可以是下表中的值:

名字 描述
xlPivotTableVersion2000 0 Excel 2000
xlPivotTableVersion10 1 Excel 2002
xlPivotTableVersion11 2 Excel 2003
xlPivotTableVersion12 3 Excel 2007
xlPivotTableVersion14 4 Excel 2010
xlPivotTableVersion15 5 Excel 2013
xlPivotTableVersionCurrent -1 Provided only for backward compatibility

PivotCache对象的CreatePivotTable方法创建的语法如下:

其中参数TableDestination为要放置数据透视表结果的单元格区域,TableName参数为数据透视表的名称,ReadData参数表示是否一开始就创建含有所有数据的透视表还是在有必要的时候再读取需要的数据,DefaultVersion参数表示默认的数据透视表的版本。

接下来本文介绍最简单的以单元格区域为数据源创建的数据透视表,代码如下:

以下代码以单元格区域创建多重合并计算数据区域数据透视表:

 

       

发表评论