VBA数据透视表和数据透视字段-PivotField.CurrentPage未更新

Question

因此，我正在尝试使用数据透视表为查询设置必要的过滤条件，然后检索该值。

从测试宏调用并使用运行功能执行时，SetFilter宏可以完美地工作。

Public Sub SetFilter(tpt As PivotField, astr As Variant)
    tpt.ClearAllFilters
    If astr <> "All" Then
        tpt.CurrentPage = astr
    Else
        tpt.CurrentPage = "(All)"
    End If
End

但是，当查询功能的一部分时，tpt.clearallfilters崩溃，并且设置tpt.CurrentPage的尝试也会失败..

我机智。我怀疑这与范围有关，但是使用调试器没有显示任何明显的东西会阻止我设置PageField。

非常感谢任何帮助。