Excel VBA筛选Outlook日历30天内预约时出现过滤失效问题

• 错误的错误处理作用域：代码在Outlook绑定环节开启On Error Resume Next后，全程未通过On Error GoTo 0关闭错误屏蔽，后续所有运行时错误会被静默忽略。包括对文件夹对象错误调用排序方法、设置非存在属性、筛选字符串语法错误导致Restrict失效等问题，全程不会触发报错提示，最终获取的集合实际为日历下的全部原始预约，未执行任何筛选。
• 筛选字符串语法缺陷：拼接生成的筛选条件存在两处硬伤，一是第一个日期值与闭合单引号之间混入多余空格，破坏了字符串常量边界；二是使用系统本地区域格式拼接日期，Outlook筛选引擎无法跨区域正确解析非标准化日期值，直接导致筛选逻辑失效。
• 对象属性赋值错误：Sort、IncludeRecurrences是日历文件夹下Items集合的属性/方法，原代码将其直接赋值给文件夹对象本身，即使无错误屏蔽，这两行代码也不会产生实际效果。

修正逻辑覆盖全部故障点，可正确获取今日起30天内的所有预约：

Option Explicit

Sub P1()
    Dim oOutlook As Object
    Dim oNS As Object
    Dim oCalendarFolder As Object
    Dim oApptItems As Object
    Dim oFilteredItems As Object
    Dim oAppointmentItem As Object
    Const olFolderCalendar = 9
    
    Dim filterStart As Date
    Dim filterEnd As Date
    Dim sFilter As String
    
    ' 绑定Outlook实例，仅在绑定环节临时启用错误屏蔽
    On Error Resume Next
    Set oOutlook = GetObject(, "Outlook.Application")
    If Err.Number <> 0 Then
        Err.Clear
        Set oOutlook = CreateObject("Outlook.Application")
    End If
    ' 立即关闭错误屏蔽，后续代码的运行时错误正常抛出
    On Error GoTo 0
    
    Set oNS = oOutlook.GetNamespace("MAPI")
    Set oCalendarFolder = oNS.GetDefaultFolder(olFolderCalendar)
    ' 获取日历下的全部预约项集合
    Set oApptItems = oCalendarFolder.Items
    
    ' 对Items集合设置正确的排序规则，开启重复预约展开
    oApptItems.Sort "[Start]", False
    oApptItems.IncludeRecurrences = True
    
    ' 计算筛选边界：当日0点 ~ 30天后的23:59:59，避免边界值漏匹配
    filterStart = DateSerial(Year(Date), Month(Date), Day(Date))
    filterEnd = DateAdd("d", 30, filterStart + TimeSerial(23, 59, 59))
    
    ' 构建合法筛选串：统一使用MM/dd/yyyy格式输出日期，保证引号完全闭合、无多余空格
    sFilter = "[Start] >= '" & Format(filterStart, "MM/dd/yyyy") & "' AND [Start] <= '" & Format(filterEnd, "MM/dd/yyyy") & "'"
    
    Debug.Print "实际执行的筛选条件：" & sFilter
    
    ' 执行条件筛选
    Set oFilteredItems = oApptItems.Restrict(sFilter)
    
    ' 遍历输出匹配结果
    For Each oAppointmentItem In oFilteredItems
        Debug.Print "预约开始时间：" & oAppointmentItem.Start & " | 主题：" & oAppointmentItem.Subject
    Next

End Sub

• 筛选字符串中的日期值必须统一使用MM/dd/yyyy格式，Outlook的Jet筛选引擎不会自动适配系统本地日期格式，混用DD/MM/YYYY等本地格式必然出现日期匹配错位。
• 单引号包裹的字符串常量内部不要混入多余空格，否则会被引擎判定为语法错误，直接跳过整段筛选逻辑。
• 展开重复周期预约时，必须先对Items集合按Start字段完成排序，再设置IncludeRecurrences = True，否则重复项的展开顺序会混乱，出现漏匹配。

内容的提问来源于stack exchange，提问作者Isabel Ferrera