Excel VBA编程  查看数据透视表宏代码
录制完毕宏之后，在VBE窗口中，将自动记录宏的相关代码。用户可以对其进行查看或保存，以便以后可以直接使用该代码来创建数据透视表。
单击【代码】组中的Visual Basic按钮，弹出VBE窗口。然后，双击【工程管理器】窗口中的【模块1】选项，在弹出的【代码】编辑窗口中，即可查看数据透视表的宏代码，如图17-14所示。
图17-14  查看宏代码
其中，在弹出的VBE窗口中，查看相应的代码：
Sub 创建数据透视表()
' 创建数据透视表 Macro
    Sheets.Add
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Sheet1!R2C1:R57C5", Version:=xlPivotTableVersion12).CreatePivotTable _
        TableDestination:="Sheet4!R3C1", TableName:="数据透视表1", DefaultVersion:= _
        xlPivotTableVersion12
    Sheets("Sheet4").Select
    Cells(3, 1).Select
    ActiveWorkbook.ShowPivotTableFieldList = True
    With ActiveSheet.PivotTables("数据透视表1").PivotFields("部门")
        .Orientation = xlRowField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("数据透视表1").PivotFields("摘要")
        .Orientation = xlRowField
弹出窗口代码编写
        .Position = 2
    End With
    With ActiveSheet.PivotTables("数据透视表1").PivotFields("日期")
        .Orientation = xlRowField
        .Position = 3
    End With
    ActiveSheet.PivotTables("数据透视表1").AddDataField ActiveSheet.PivotTables("数据透视表1" _
        ).PivotFields("金额"), "求和项:金额", xlSum
End Sub
在上面的代码中，主要运用了以下几个数据透视表对象，其功能如下：
●PivotCaches  代表数据透视表的缓存。
●PivotTable  代表工作表上的数据透视表。
●PivotFields  指定的数据透视表中所有PivotField（代表数据透视表中的一个字段）对象的集合。