迭代所有数据透视表对象

Question

目前有一个包含数百个数据透视表措施的列表：

如何在VBA中迭代所有可能的对象？

例如，拉[销售员]，然后拉[产品]，然后拉[区域]等

（我知道它将是数据透视表命令的For Each循环...）

Answer 1

假设PivotTable1是数据透视表的名称

For Each objPivotField In Worksheets("Sheet1").PivotTables("PivotTable1").PivotFields
    Debug.Print objPivotField.Name
Next

将使您能够遍历所有数据透视字段