Filtering Pivot Table Using VBA

Question

I am trying to write out some VBA code to filter a pivottable of mine to show only records greater than 0.

When I run the code, I receive ther error "Application-defined or object-defined error".

I really have no idea what is causing the issue, so hoping for some assistance from you all!

Here's my code:

 Sheet32.PivotTables("PivotTable11").PivotFields("Retail Division"). _
        PivotFilters.Add Type:=xlValueIsGreaterThan, DataField:=Sheet32.PivotTables("PivotTable11").PivotFields("Sum of Recordable Injuries"), Value1:=0

Any ideas why the code is not running?

Answer 1

尝试在行之前清除过滤器：

 Sheet32.PivotTables("PivotTable11").PivotFields("Retail Division").ClearAllFilters