vba code to export outlook calendar to excel

以下是将Outlook日历导出到Excel的VBA代码：

Sub ExportOutlookCalendarToExcel()
    Dim olApp As Outlook.Application
    Dim olNs As Namespace
    Dim olFolder As Object
    Dim olApt As AppointmentItem
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim lRow As Long
    Set olApp = New Outlook.Application
    Set olNs = olApp.GetNamespace("MAPI")
    Set olFolder = olNs.GetDefaultFolder(olFolderCalendar)
    Set wb = Workbooks.Add
    Set ws = wb.Sheets(1)
    ' 设置Excel表头
    ws.Range("A1:E1").Value = Array("Subject", "Start", "End", "Location", "Description")
    lRow = 2
    For Each olApt In olFolder.Items
        ws.Cells(lRow, 1).Value = olApt.Subject
        ws.Cells(lRow, 2).Value = olApt.Start
        ws.Cells(lRow, 3).Value = olApt.End
        ws.Cells(lRow, 4).Value = olApt.Location
        ws.Cells(lRow, 5).Value = olApt.Body
        lRow = lRow + 1
    Next olApt
    ' 自动调整Excel表格的列宽
    ws.Columns.AutoFit
    ' 保存Excel文件
    wb.SaveAs "C:\Users\YourName\Documents\Outlook Calendar.xlsx"
    ' 关闭Excel工作簿和Outlook会话
    wb.Close
    olApp.Quit
    Set olApt = Nothing
    Set olFolder = Nothing
    Set olNs = Nothing
    Set olApp = Nothing
    Set ws = Nothing
    Set wb = Nothing
End Sub
该代码将Outlook日历中的每个预约（Appointment）导出到Excel工作簿中，并在第一个工作表上创建一个表格，其中包含了预约的主题、开始时间、结束时间、地点和描述等信息。Excel文件将保存在您指定的路径下。
请注意，导出的预约可能会因日期范围、重复预约等原因而重复出现在Excel表格中。如果您需要避免这种情况，请在代码中添加额外的逻辑来去除重复的预约。