如何让Excel使用VBA中的时间切片器自动选择最近一周？

Sub SelectRecentWeek()
    Dim currentDate As Date
    Dim startDate As Date
    Dim endDate As Date
    
    ' 获取当前日期
    currentDate = Date
    
    ' 计算最近一周的起始日期和结束日期
    startDate = currentDate - Weekday(currentDate, vbMonday) + 1
    endDate = startDate + 6
    
    ' 选择最近一周的日期范围
    Range("A1").AutoFilter Field:=1, Criteria1:=">=" & startDate, Operator:=xlAnd, Criteria2:="<=" & endDate
End Sub