数据透视表报告使用VBA过滤

Question

我正在尝试使用VBA自动执行特定的Pivot表过滤。我不知道如何使用VBA添加“报告过滤器”（请参阅​​随附的屏幕截图）。

为了自动化这个过程，我得到了添加行，列和值的代码，但似乎找不到报表过滤器的代码。

你可以帮我解决这个问题。

Answer 1

感谢@avb的建议。录制宏有帮助。添加数据透视报告过滤器的代码就是这个。

    Sub pivotReportFilter(ptUse As PivotTable, fName As String)

     With ptUse.PivotFields(fName)
      .Orientation = xlPageField
      .Position = 1
     End With

   End Sub