如何在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郵件助理並享受吧
最佳辦公室生產力工具
最新消息：Kutools for Outlook推出免費版本！
體驗全新的Kutools for Outlook免費版本，擁有70多項令人驚嘆的功能，永久使用！立即點擊下載！
🤖 Kutools AI ：使用先進的AI技術輕鬆處理郵件，包括答覆、摘要、優化、擴展、翻譯和撰寫郵件。
📧 郵件自動化：自動回覆（適用於POP和IMAP） / 計劃發送郵件 / 發送郵件時按規則自動抄送密送 / 自動轉發（高級規則） / 自動新增問候語 / 自動將多收件人郵件拆分為個別郵件...
📨 郵件管理：撤回郵件 / 按主題和其他方式阻止詐騙郵件 / 刪除重複郵件 / 高級搜索 / 整合文件夾...
📁 附件專業版：批量保存 / 批量拆離 / 批量壓縮 / 自動保存 / 自動拆離 / 自動壓縮...
🌟 介面魔法：😊更多漂亮和酷炫的表情符号 / 當重要郵件到來時提醒您 / 最小化Outlook而不是關閉...
👍 一鍵奇蹟：帶附件全部答復 / 防止網絡釣魚郵件 / 🕘顯示發件人的時區...
👩🏼🤝👩🏻 聯絡人和日曆：從選中郵件批量新增聯絡人 / 將聯絡人組拆分為個別組 / 移除生日提醒...
立即單擊解鎖Kutools for Outlook。不要等待，立即下載並提升您的效率！
