如何用vba切换数据透视表的报表布局?

在vba中要切换数据透视表的报表布局,需要设置PivotTable对象的RowAxisLayout方法。

其中RowAxisLayout方法可以有3种不同的参数,分别是xlCompactRow (以压缩形式显示) , xlTabularRow (以表格形式显示),  xlOutlineRow(以大纲形式显示)。

以下vba代码举例演示了如何切换数据透视表的报表布局:

Sub QQ1722187970()
    Dim oPC As PivotCache
    Dim oPT As PivotTable
    Dim oPF As PivotField
    Dim oPI As PivotItem
    Dim oWK As Worksheet
    Set oWK = Sheet8
    Set oPT = oWK.PivotTables(1)
    With oPT
    '以表格形式显示
    .RowAxisLayout xlTabularRow
    '以压缩形式显示
    .RowAxisLayout xlCompactRow
    '以大纲形式显示
    .RowAxisLayout xlOutlineRow
    End With
End Sub

 

       

发表评论