excel VBA listobject autofilter错误简单过滤条件错误

Question

为什么此过滤器无法正常工作：

Dim clsSht As Worksheet
    Set clsSht = ThisWorkbook.Sheets("claims")
    clsSht.Activate
Dim myTable As ListObject
    Set myTable = clsSht.ListObjects(1)
myTable.Range.AutoFilter Field:=1, Criteria1:="1"

工作表“claim”包含一个名为table3的表，我通过clsSht.ListObjects(1)访问该表，因为它是该表中唯一的listobject。

这个过滤表的术语可以在StackOverflow和其他网站的其他帖子中进行扩展使用。

错误是：

  

运行时erroe 1004范围类的自动过滤方法失败。

用最后一行代替：

myTable.DataBodyRange.AutoFilter Field:=1, Criteria1:="1"

也不起作用。同样的错误。

我还在运行代码之前激活了工作表（“声明”）。同样的错误。

我再次更改了过滤行：

myTable.DataBodyRange.AutoFilter Field:=1, Criteria1:="1", Operator:=xlFilterValues

同样的错误。

表格如下：

作为表格第一个字段的第一列。

我查看了互联网上的数十页，令人惊讶的是我发现这种语法经常作为过滤表的解决方案。

渔获物在哪里？