未定义变量Outlook到Excel导入

Sub ImportOutlookToExcel()
    Dim olApp As Outlook.Application
    Dim olNs As Outlook.Namespace
    Dim olFolder As Outlook.MAPIFolder
    Dim xlApp As Excel.Application
    Dim xlWB As Excel.Workbook
    Dim xlSheet As Excel.Worksheet
    Dim i As Long
    
    ' 初始化Outlook对象
    On Error Resume Next
    Set olApp = GetObject(, "Outlook.Application")
    If Err.Number <> 0 Then
        Set olApp = New Outlook.Application
    End If
    On Error GoTo 0
    
    ' 初始化Excel对象
    Set xlApp = New Excel.Application
    xlApp.Visible = True
    Set xlWB = xlApp.Workbooks.Add
    Set xlSheet = xlWB.Sheets(1)
    
    ' 设置Outlook文件夹（例如收件箱）
    Set olNs = olApp.GetNamespace("MAPI")
    Set olFolder = olNs.GetDefaultFolder(olFolderInbox)
    
    ' 导出数据到Excel
    i = 1
    For Each itm In olFolder.Items
        xlSheet.Cells(i, 1).Value = itm.Subject
        xlSheet.Cells(i, 2).Value = itm.SenderName
        i = i + 1
    Next itm
    
    ' 清理对象
    Set olFolder = Nothing
    Set olNs = Nothing
    Set olApp = Nothing
    Set xlSheet = Nothing
    Set xlWB = Nothing
    Set xlApp = Nothing
End Sub