VB - 导出Outlook日历到Excel，包括'会议组织者'

我有一段代码从Outlook日历中提取信息到Excel文件，用户必须做的所有操作只是简单地选择一个日期范围，因为这是一个用户，如果有多个用户，那么我需要在使用“导入/导出”向导将其解压缩到CSV文件时调用“MeetingOrganizer”，但我无法解决我需要补充，这里是代码的相关位，我需要将其添加到，感谢您的帮助，您可以给我：VB - 导出Outlook日历到Excel，包括'会议组织者'

'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"

我以后主要的是给出了具体的名字给会议组织者。所以你可以看到定位和学科2个明显的例子，不管我怎么努力我似乎得到任何地方，希望有人会已经为任何帮助

来源

2015-02-06 Crezzer7

它看起来像你需要重复每个收件人的代码。您可以使用for循环遍历代码中的所有收件人。您是否尝试调试代码？ – 2015-02-06 14:18:10

它总是与其独特的日历相同的收件人...并且该数据从该excel文件提交到数据库中。你有什么意思吗？我真的没有用过VB，更多的是C＃人，感谢您的帮助 – Crezzer7 2015-02-06 14:20:46

制定了这一点...

谢谢得到它：

.Cells(1, 4) = "User" 

    excWks.Cells(lngRow, 4) = strLst

来源

2015-02-06 15:50:27 Crezzer7

VB - 导出Outlook日历到Excel，包括'会议组织者'

回答

相关问题