如何將 Outlook 電子郵件內文中的表格匯出至 Excel？

當您收到一封內文包含多個表格的電子郵件時，可能需要將所有表格匯出至 Excel 工作表。雖然一般做法是手動複製並貼上到工作表中，但這裡將為您介紹一種更實用的方法，輕鬆應對多表格匯出的需求。

使用 VBA 程式碼將 Outlook 郵件內文中的所有表格匯出至 Excel 工作表

---

使用 VBA 程式碼將 Outlook 郵件內文中的所有表格匯出至 Excel 工作表

請套用以下 VBA 程式碼，將單封郵件內文中的所有表格一鍵匯出至 Excel 工作表。

1. 開啟您要匯出表格的郵件，然後按下「Alt」+「F11」鍵，即可啟動「Microsoft Visual Basic for Applications」視窗。

2. 點選「插入」>「模組」，並將下列程式碼貼上至「模組」視窗中。

VBA 程式碼：將郵件內文中的所有表格匯出至 Excel 工作表

Sub ImportTableToExcel()
Dim xMailItem As MailItem
Dim xTable As Word.Table
Dim xDoc As Word.Document
Dim xExcel As Excel.Application
Dim xWb As Workbook
Dim xWs As Worksheet
Dim I As Integer
Dim xRow As Integer
On Error Resume Next
Set xExcel = New Excel.Application
Set xWb = xExcel.Workbooks.Add
xExcel.Visible = True
Set xWs = xWb.Sheets(1)
xRow = 1
For Each xMailItem In Application.ActiveExplorer.Selection
    Set xDoc = xMailItem.GetInspector.WordEditor
    For I = 1 To xDoc.Tables.Count
        Set xTable = xDoc.Tables(I)
        xTable.Range.Copy
        xWs.Paste
        xRow = xRow + xTable.Rows.Count + 1
        xWs.Range("A" & CStr(xRow)).Select
    Next
Next
End Sub

3. 貼上上述程式碼後，在「Microsoft Visual Basic for Applications」視窗中，點選「工具」>「參考設定」以開啟「References-Project 1」對話方塊，並從「可用參考」清單中勾選「Microsoft Word Object Library」與「Microsoft Excel Object Library」選項，如下圖所示：

4. 接著點選「確定」按鈕關閉對話方塊，現在請按下「F5」鍵執行程式碼，郵件內文中的所有表格便會如以下截圖所示，匯出至一個新工作簿中：