arrays - VBA excel : Filtering By date and assigning Criteria2 value to a variable?

Question

我有一个表格，其中有一列包含我要过滤的日期。我正在尝试获取标准值并将其分配给一个变量，但一直遇到错误。 (运行时错误“1004”:应用程序定义的或对象定义的错误)。
任何人都可以帮忙吗？
过滤代码:

ActiveSheet.ListObjects("MyTbl").Range.AutoFilter Field:=5, _
    Operator:=xlFilterValues, Criteria2:=Array(0, "10/1/2017")

我的代码:

Dim x As Variant

If Table.AutoFilter.Filters(5).On Then

    x = Table.AutoFilter.Filters(5).Criteria2
    
End If

Answer 1

尝试这个:

Dim lo As ListObject ' optional declaration
Set lo = ActiveSheet.ListObjects("MyTbl") ' optional variable assignment

If Not ActiveSheet.AutoFilterMode Then
     ActiveSheet.Range("MyTbl").AutoFilter
End If

With lo.Range
    .AutoFilter Field:=5, _ 
    Operator:=xlFilterValues, _ 
    Criteria2:=Array(0, "10/1/2017")
End With