设置VBA PivotFields.CurrentPage时出错

Question

我正在尝试制作一个宏，该宏将根据用户输入自动调整多个枢轴表的过滤器尝试应用过滤器时。

无论如何是否可以检查哪些过滤器可以选择？

示例：一个枢轴表有三个过滤器（年，月份，类型[投诉，赞美，两者]），但是如果在一个月内没有任何投诉，则有错误。

代码：

With PTable
    .PivotFields("Year").CurrentPage = Y
    .PivotFields("Month").CurrentPage = M
    .PivotFields("Type").CurrentPage = T 'Error line if T isn't valid
End With

Answer 1

进一步的评论，尝试此

With PTable
    .PivotFields("Year").CurrentPage = Y
    .PivotFields("Month").CurrentPage = M
    On Error Resume Next
    .PivotFields("Type").CurrentPage = T 'Error line if T isn't valid
    If Err.Number <> 0  Then
        Msgbox "Filter Didn't get applied"
    End If
    On Error GoTo 0
End With