运行时错误“5”：通过 VBA 更新报告过滤器时过程调用或参数无效

Question

我正面临这篇文章的主题在以下代码中提到的 VBA 错误：

Sub test 
Dim pt As PivotTable
Dim cp, dep As Variant
Dim Legx, DepDtex As PivotField

    Set pt = ActiveSheet.PivotTables("Main")
    Set cp = Sheets("LEGDETAILS").Range("E3")
    Set dep = Sheets("LEGDETAILS").Range("AX2")
    Set Legx = pt.PivotFields("Leg")
    Set DepDtex = pt.PivotFields("DepDte")

    With pt
    Legx.CurrentPage = cp
    DepDtex.CurrentPage = dep
    End With
        End Sub

错误出现在“with PT”之后。 代码应更改同一数据透视表的 2 个报告过滤器。 你能解释一下为什么会出现错误以及如何解决吗？ 谢谢

Answer 1

在测试中，这样的事情对我有用。我不相信 CurrentPage 期望 Range 对象。

请注意，您应该声明每个变量的类型，正如 cmets 中已经指出的那样。此外，With...End With 块实际上并未被使用。

Sub test 
    Dim pt As PivotTable
    Dim cp As Range, dep As Range
    Dim Legx as PivotField, DepDtex As PivotField

    Set pt = ActiveSheet.PivotTables("Main")
    Set cp = Sheets("LEGDETAILS").Range("E3")
    Set dep = Sheets("LEGDETAILS").Range("AX2")
    Set Legx = pt.PivotFields("Leg")
    Set DepDtex = pt.PivotFields("DepDte")

    Legx.CurrentPage = cp.Value
    DepDtex.CurrentPage = dep.Value
End Sub

编辑：

不再能够重现您的错误，因为此代码在功能上与您的原始代码等效，除了声明所有变量类型并添加显式 .Value（这些都是很好的改进）。

编辑 2： 能够通过不专门添加.Value 来重现您的错误，尽管只是偶尔出现。