超级透视表 用VBA怎么控制

mavin

我是透视表的深度用户，90%的最终报表依靠透视表完成。

原来做的自用vba代码，可以自动生成透视表，设置各类透视表的格式。

但是power pivot做的超级透视表不能用这个代码。网上找了一下，也没有找到VBA控制超级透视表的类似代码。
使用录制宏，发觉不能录制下来。（比如超级透视表，修改个数据字段的表头。）
哪位版主，哪位高手有资源，推荐一下。

Jday1218

确实，Power Pivot透视表与普通透视表在VBA编程上有所不同。虽然在VBA中处理Power Pivot透视表的官方支持有限，但可以尝试使用以下方法来修改数据字段的表头：
Sub ChangePowerPivotFieldCaption()
    Dim pvt As PivotTable
    Dim pf As PivotField
   
    ' 指定工作表和透视表
    Set pvt = ThisWorkbook.Worksheets("SheetName").PivotTables("PivotTableName")
   
    ' 指定要修改的数据字段
    Set pf = pvt.DataFields("OriginalCaption")
   
    ' 更改字段标题
    pf.Caption = "NewCaption"
End Sub
请将 "SheetName" 替换为包含透视表的工作表名称，并将 "PivotTableName" 替换为透视表的名称。同时，将 "OriginalCaption" 替换为要更改的数据字段的原始标题，并将 "NewCaption" 替换为新标题。

请注意，这种方法可能在某些情况下无法正常工作，因为VBA对Power Pivot透视表的支持不完全。此外，这种方法仅适用于数据字段，而不适用于其他类型的字段，如行字段、列字段或筛选字段。