VB - 将 Outlook 日历导出到 Excel,包括 'Meeting Organizer'

VB - Export Outlook Calendar to Excel including 'Meeting Organizer'

我有一段很长的代码可以将 Outlook 日历中的信息提取到 Excel 文件中,用户所要做的只是选择一个日期范围,尽管这对一个用户来说非常有用,如果有多个用户,那么我需要以某种方式提取 'MeetingOrganizer',因为它在使用 'Import/Export' 向导将其提取到 CSV 文件时被调用,但是我无法弄清楚我需要什么添加,这是我需要添加的相关代码,感谢您能给我的任何帮助:

'Write Excel Column Headers
            With excWks
                .Cells(1, 1) = "Subject"
                .Cells(1, 2) = "Location"
                .Cells(1, 3) = "MeetingOrganizer" 'Does not work
                .Cells(1, 4) = "StartDate"
                .Cells(1, 5) = "FinishDate"
                .Cells(1, 6) = "StartTime"
                .Cells(1, 7) = "FinishTime"
                .Cells(1, 8) = "Hours"
            End With



> xcWks.Cells(lngRow, 1) = olkApt.Subject
>                     excWks.Cells(lngRow, 2) = olkApt.Location
>                     excWks.Cells(lngRow, 3) = olkApt.MeetingOrganizer 'Does not work
>                     excWks.Cells(lngRow, 4) = Format(olkApt.Start, "mm/dd/yyyy")
>                     excWks.Cells(lngRow, 5) = Format(olkApt.End, "mm/dd/yyyy")
>                     excWks.Cells(lngRow, 6) = Format(olkApt.Start, "hh:nn ampm")
>                     excWks.Cells(lngRow, 7) = Format(olkApt.End, "hh:nn ampm")
>                     excWks.Cells(lngRow, 8) = DateDiff("n", olkApt.Start, olkApt.End) / 60
>                     excWks.Cells(lngRow, 8).NumberFormat = "0.00"

我最关心的是会议组织者的具体名称。如您所见,Location 和 Subject 是两个明显的例子,无论我尝试什么,我似乎都无济于事,希望有人已经解决了这个问题...

感谢您的帮助

知道了:

    .Cells(1, 4) = "User"

    excWks.Cells(lngRow, 4) = strLst