如何在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」窗口中，點擊「工具」>「引用」進入「引用-Project1」對話框，並從「可用引用」列表框中勾選「Microsoft Word Object Library」和「Microsoft Excel Object Library」選項，參見截圖：
4. 然後點擊「確定」按鈕退出對話框，現在，請按「F5」鍵運行代碼，郵件正文中所有的表格都已導出到一個新的工作簿中，如下方截圖所示：
Outlook中的AI郵件助理：更聰明的回覆，更清晰的溝通（一鍵奇蹟！） 免費
使用Kutools for Outlook的AI郵件助理簡化您的日常Outlook任務。這個強大的工具會從您過去的郵件中學習，提供智能且準確的答覆，優化您的郵件內容，並幫助您輕鬆起草和潤色郵件。
此功能支援：
- 智能回覆：根據您過去的對話獲得量身定制、精確且隨時可用的回覆。
- 增強內容：自動優化您的郵件文字以提高清晰度和影響力。
- 輕鬆撰寫：只需提供關鍵字，讓AI處理其餘部分，並有多種寫作風格可供選擇。
- 智能擴展：通過上下文感知建議來拓展您的思路。
- 摘要生成：即時獲取長郵件的簡潔概述。
- 全球觸及：輕鬆將您的郵件翻譯成任何語言。
此功能支援：
- 智能郵件回覆
- 優化的內容
- 基於關鍵字的草稿
- 智能內容擴展
- 郵件摘要生成
- 多語言翻譯
最重要的是，此功能永遠完全免費！不要再等待了——立即下載AI郵件助理並享受吧
最佳 Office 生產力工具
最新消息：Kutools for Outlook 推出免費版本！
體驗全新 Kutools for Outlook，擁有100+ 強大功能！立即下載！
🤖 Kutools AI ：運用先進 AI 技術，輕鬆處理郵件，包括答覆、摘要、優化、擴寫、翻譯與撰寫郵件。
📧 郵件自動化：自動回覆（支援 POP 和 IMAP） / 計劃發送郵件 / 發送郵件時根據規則自動抄送密送 / 自動轉發（高級規則） / 自動新增問候語 / 自動將多收件人郵件分割為個別郵件 ...
📨 郵件管理：撤回郵件 /依主題等條件阻擋詐騙郵件 / 刪除重複郵件 / 高級搜索 / 整合文件夾 ...
📁 附件專業版：批次保存 / 批次拆離 / 批次壓縮 / 自動保存 / 自動拆離 / 自動壓縮 ...
🌟 介面魔法：😊更多精美酷炫表情符號 /重要郵件來臨提醒 / 最小化 Outlook 而非關閉 ...
👍 一鍵神技：帶附件全部答復 /反釣魚郵件 / 🕘顯示發件人時區 ...
👩🏼🤝👩🏻 聯絡人與日曆：批次從選中郵件新增聯絡人 / 將聯絡人組分割為多個組 / 移除生日提醒 ...
以您偏好的語言使用 Kutools —— 支援英語、西班牙語、德語、法語、中文及40 多種其他語言！
只需一鍵即可立即啟用 Kutools for Outlook。立即下載，提升您的效率！
