vba - 清除过滤器错误的功能 - ShowAllData 失败

Question

下午好，

我编写了一个函数，它传递了一个工作表数组，应该清除每个工作表上的所有过滤器。这是功能：

Function Clearwsfilters(sheets() As Object)

    For i = LBound(sheets) To UBound(sheets)
        With sheets(i)
            If .AutoFilterMode Then
                If .FilterMode Then
                    Debug.Print "Clearing Filters on Sheet: "; i
          ------>   .ShowAllData
                End If
            ElseIf .FilterMode Then
                Debug.Print "Clearing Filters on Sheet: "; i
                .ShowAllData
            End If
        End With
    Next i

End Function

当我运行它时，它卡在我用箭头指示的线上。该函数正在传递 6 个具有相同名称的工作表，存储在一个对象数组中。如有必要，我可以提供有关此数组的更多详细信息。

谢谢你看看这个

标签： vbaexcel