ListObject日期过滤器设置

Question

较新的Excel程序（我使用的是2013）具有非常有用的过滤器。我想知道如何在vba代码中访问当前过滤器设置的StartDate和EndDate。

谢谢！

我确实看到了xlFilterThisWeek。我可以想象挖掘逻辑从那里开始编写一堆代码来获取日期但是似乎就像一个公平有用的东西来短路工作，如果众所周知的话。

Sub spud()
    ActiveSheet.ListObjects("Table2").Range.AutoFilter Field:=1, Criteria1:= _
        xlFilterThisWeek, Operator:=xlFilterDynamic
End Sub