使用VBA捕获数据透视表中的字段-Java 学习之路

我们可以使用下面的代码来构建数据透视表（这是由Power Pivot创建的数据透视表） .

With ActiveSheet.PivotTables("PivotTable1").CubeFields(FieldName)
            .Orientation = Orientation
            .Position = Position

有没有办法扭转这个过程？假设用户已构建了一个数据透视表 . 我们使用VBA捕获表中使用的字段（找出相应的 FieldName(s), Orientation(s), and Position(s) ）并保存它们，因此下次用户可以运行宏并再次创建相同的数据透视表 .

谢谢

1 回答

感谢@OpiesDad . 以下将有效 .

Sub Func1()
Dim objCubeFld As PivotField
Dim pvt As PivotTable
Set pvt = ActiveSheet.PivotTables("PivotTable1")
For Each objCubeFld In pvt.PivotFields
MsgBox objCubeFld & "-" & objCubeFld.Orientation
Next objCubeFld
End Sub

回复于 2024-04-28T13:13:15+08:00

使用VBA捕获数据透视表中的字段

1 回答

相关问题