Excel_VBA编程__数据透视表对象
Excel VBA编程数据透视表对象
创建了缓存对象后,就可以创建数据透视表对象了。本节主要介绍如何使用PivotTable对象来为数据透视表添加字段,以及更改透视字段分类汇总的位置等。另外,还将学习常用的PivotTable属性的设置。
1.PivotTable方法
PivotTable方法共有19个,下表17-5列出了几种常用的PivotTable方法功能,其具体内容如下:
表17-5 PivotTable方法功能
例如,使用PivotFields方法,向新工作表列表添加数据透视表的字段名称,其代码如下:Sub a()
Set nwSheet = Worksheets.Add
nwSheet.Activate
Set pvtTable = Worksheets("Sheet4").Range("A3").PivotTable
rw = 0
For Each pvtField In pvtTable.PivotFields
rw = rw + 1
nwSheet.Cells(rw, 1).Value = https://www.360docs.net/doc/0615079752.html,
Next pvtField
End Sub
2.PivotTable属性
PivotTable属性共有80多种,下面介绍几种常用的PivotTable属性,其功能如下表17-6所示。
表17-6 PivotTable属性功能
例如,打开一个包含数据透视表的工作表(其中,数据透视表位于Sheet4工作表)使用RowRange属性选取数据透视表的行标题,其代码如下:
Sub b()
Worksheets("Sheet4").Activate
Range("A3").Select
ActiveCell.PivotTable.RowRange.Select
End Sub
运行代码之后,即可选择数据透视表中的行标签,效果如图17-16所示。
选择
图17-16 选择行标签