如何使用Exchange Server打開和處理Excel附件？

Question

我正在尋找一些幫助將Excel附件加載到內存中，然後處理Excel文檔。主要的問題是使用EWS將附件加載到內存中，然後處理文檔。最終的結果是加載附件，逐行讀取excel文檔並將數據存儲到一個對象中以匹配Excel佈局。我已經有了存儲EWS郵件對象的附件屬性的代碼。然後我需要在這裏做處理...

Public Function ParseEmails(ByVal emails As List(Of MailDT)) As List(Of PriceInjectionDT) 
    Dim ParsedEmails As New List(Of PriceInjectionDT) 

    For Each email As MailDT In emails 
     For Each a As Microsoft.Exchange.WebServices.Data.Attachment In email.Attachment 
      a.Load() 

     Next 
    Next 


End Function 

這將加載使用.Load附着到內存中，但犯規給我訪問Excel的特性:(幫助！

Answer 1

裝載的相反附着到內存中，你可以使用FileAttachment.Load寫入磁盤然後，您可以更改您的代碼如下（未經測試）：

For Each email As MailDT In emails 
    For Each a As Microsoft.Exchange.WebServices.Data.FileAttachment In email.Attachment 
     a.Load("C:\temp\" + a.Name); 


    Next 
Next 

附件保存到磁盤後，您可以打開和使用的功能，操縱它Office主互操作程序集謊言（PIA）。關於如何使用PIA，我發現了一個article on CodeProject。