如何在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對像庫 和 Microsoft Excel對像庫 來自的選項 可用參考 列錶框,請參見屏幕截圖:
4。 然後點擊 OK 按鈕退出對話框,現在,請 F5 鍵以運行代碼,消息正文中的所有表均已導出到新工作簿,如以下屏幕截圖所示:
最佳辦公生產力工具
Kutools for Outlook - 超過 100 種強大的功能可增強您的 Outlook
🤖 人工智慧郵件助手: 具備人工智慧魔力的即時專業電子郵件——一鍵天才回覆、完美語調、多語言掌握。輕鬆改變電子郵件! ……
📧 電子郵件自動化: 外出(適用於 POP 和 IMAP) / 安排發送電子郵件 / 發送電子郵件時按規則自動抄送/密件副本 / 自動轉送(進階規則) / 自動添加問候語 / 自動將多收件者電子郵件拆分為單獨的訊息 ...
📨 電子郵件管理: 輕鬆回憶電子郵件 / 按主題和其他人阻止詐騙電子郵件 / 刪除重複的電子郵件 / 進階搜索 / 合併資料夾 ...
📁 附件專業版: 批量保存 / 批量分離 / 批量壓縮 / 自動保存 / 自動分離 / 自動壓縮 ...
🌟 介面魔法: 😊更多又漂亮又酷的表情符號 / 使用選項卡式視圖提高 Outlook 工作效率 / 最小化 Outlook 而不是關閉 ...
👍 一鍵奇蹟: 使用傳入附件回覆全部 / 反網路釣魚電子郵件 / 🕘顯示寄件者的時區 ...
👩🏼🤝👩🏻 通訊錄和行事曆: 從選定的電子郵件中大量新增聯絡人 / 將聯絡人群組拆分為各組 / 刪除生日提醒 ...
超過 100特點 等待您的探索! 按此處了解更多。