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
我有一段很长的代码可以将 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