VBA数据透视表过滤器

Question

因此，我的VBA出现了一些问题，并切换了数据透视表过滤器。 这是我的代码：

Sub Macro2()
Sheets("Report").Visible = True

Sheets("Report").PivotTables("PivotTable1").PivotCache.Refresh

Sheets("Report").PivotTables("PivotTable1").PivotFields("dwm").ClearAllFilters
Sheets("Report").PivotTables("PivotTable1").PivotFields("dwm").CurrentPage = "1"

Sheets("Report").Activate
End Sub

我尝试使用“ 1”，1、1.0，但没有任何运气。 我得到的错误是：

“应用程序定义或对象定义的错误”

任何帮助表示赞赏。

Answer 1

由于某些原因，Excel 2013可能是这里的问题。 我设法找到一种解决方法，如果其他人遇到此问题。 我使用了一个循环，让我可以编辑字段的可见性。 解决方法如下：

Sub CreateReport()

Sheets("Report").Visible = True

Sheets("Report").PivotTables("PivotTable1").PivotCache.Refresh

Sheets("Report").PivotTables("PivotTable1").PivotFields("dwm").ClearAllFilters

Dim pi As PivotItem

    For Each pi In Sheets("Report").PivotTables("PivotTable1").PivotFields("dwm").PivotItems
        If pi.Value = 0 Then

        pi.Visible = False

        End If

    Next pi

Sheets("Report").Activate

End Sub