将数据从Microsoft Outlook导入到Microsoft Excel

法赞·法鲁克（M Faizan Farooq）

谁能告诉我如何使用Excel VBA将Microsoft Outlook与Microsoft Excel链接，从而将过滤具有特定主题的邮件，然后将邮件中的特定数据导入到excel的特定单元格中。

史蒂文·沃克

这是我过去使用的代码。您需要更新某些内容，例如工作表的名称和Outlook文件夹。请通读代码，并尝试弄清楚它在做什么。

Sub PullOutlookData()

Application.ScreenUpdating = False

Dim olApp As Outlook.Application, olNs As Outlook.Namespace
Dim olItems As Outlook.Items
Dim olItem As Outlook.MailItem
Dim ws As Worksheet 
Dim lrow As Long 
Set olApp = New Outlook.Application
Set olNs = olApp.GetNamespace("MAPI")


Set ws = ThisWorkbook.Sheets("Complex") '<--- change to relevant worksheet
Set olItems = olNs.Folders("[email protected]").Folders("Inbox").Folders("Travel").Items '<---CHANGE TO RELEVANT FOLDER
rCount = 1

For Each olItem In olItems
    rCount = rCount + 1
    ws.Range("A" & rCount).Value = olItem.SenderName
    ws.Range("B" & rCount).Value = olItem.Subject
    ws.Range("C" & rCount).Value = olItem.Body
    ws.Range("D" & rCount).Value = olItem.ReceivedTime
Next olItem
ws.UsedRange.WrapText = False


Application.ScreenUpdating = True
End Sub

本文收集自互联网，转载请注明来源。

如有侵权，请联系 [email protected] 删除。