Question

我使用以下代码打印每个数据透视表中存在的数据透视表项及其可见状态。我在报告过滤器中有5个数据透视字段。

问题是，它正在正确地获取Pivot Fields的号码。但是当涉及到Pivot项目的数量时，每个数据透视字段都会返回0。实际上每个Field都有很多项。我不打算打印可见物品。但物品及其可见状态。

Dim pf As PivotField
Dim pt As PivotTable
Dim pi As PivotItem

Set pt = Sheets("Reasons").PivotTables("PivotFields")
For Each pf In pt.PageFields
     For Each pi In pf.PivotItems
         Debug.Print pi.Name & " : " & pi.Visible
     Next
Next

Answer 1

请参阅以下链接中的代码，以便在您无法使用切片器的情况下高效地同步数据透视表 http://blog.contextures.com/archives/2012/08/28/update-specific-pivot-tables-automatically/

如何使用VBA访问报表筛选器中存在的数据透视表字段的数据透视表项

1 个答案: