Excel VBA读取Outlook归档日历会议遇438错误求助

我之前也碰到过一模一样的情况——Outlook里的归档会议并不是标准的AppointmentItem对象，它们的类型可能变成了PostItem或者其他不包含Start/End属性的对象，直接访问这些属性自然会触发438错误。下面给你两种可靠的兼容方案：

方案1：通过对象类型判断过滤有效会议项 #

这是最清晰高效的方式，我们只处理真正的约会/会议对象，自动跳过归档后不符合的项：

修改你的循环部分代码如下：

' 先确保变量已声明
Dim durationOfOneMeeting As Long

For Each entry In itemsInDateRange
    ' 只处理标准的约会/会议对象
    If TypeName(entry) = "AppointmentItem" Then
        With Sheets(sheetToWriteIn)
            nextRow = nextRow + 1
            ' 计算会议时长（分钟）
            durationOfOneMeeting = DateDiff("n", entry.Start, entry.End)
            sumInMinutes = sumInMinutes + durationOfOneMeeting
            
            .Cells(nextRow, "D").Value = durationOfOneMeeting
            .Cells(nextRow, "A").Value = entry.Subject
            .Cells(nextRow, "B").Value = entry.Start
            .Cells(nextRow, "C").Value = entry.End
            .Cells(nextRow, "E").Value = entry.Location
        End With
    End If
Next

方案2：用错误捕获跳过异常项 #

如果你不确定归档会议的具体类型，也可以通过错误处理来跳过那些不支持属性的对象，同时避免隐藏其他潜在错误：

Dim durationOfOneMeeting As Long
Dim entryStart As Date, entryEnd As Date

For Each entry In itemsInDateRange
    On Error Resume Next ' 临时忽略错误
    entryStart = entry.Start
    entryEnd = entry.End
    
    ' 如果没有错误，说明是可处理的对象
    If Err.Number = 0 Then
        With Sheets(sheetToWriteIn)
            nextRow = nextRow + 1
            durationOfOneMeeting = DateDiff("n", entryStart, entryEnd)
            sumInMinutes = sumInMinutes + durationOfOneMeeting
            
            .Cells(nextRow, "D").Value = durationOfOneMeeting
            .Cells(nextRow, "A").Value = entry.Subject
            .Cells(nextRow, "B").Value = entryStart
            .Cells(nextRow, "C").Value = entryEnd
            .Cells(nextRow, "E").Value = entry.Location
        End With
    End If
    On Error GoTo 0 ' 恢复默认错误处理
Next

补充说明 #

• 归档会议被Outlook转换为非约会对象的核心原因是，归档操作会改变项目的存储类型，丢失了原AppointmentItem的属性集合。
• 方案1的类型判断更推荐，因为它能明确区分有效项，不会忽略其他可能的代码错误；方案2则更灵活，适用于对象类型不确定的场景。

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