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，包括'會議組織者'

回答

相關問題