跳至主要内容

如何在Outlook中将邮件正文中的表格导出到Excel?

Author: Xiaoyang Last Modified: 2025-05-07

当您收到一封包含正文中某些表格的邮件时,有时您可能需要将所有表格从邮件正文中导出到一个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

doc export tables to excel 1

3. 粘贴上述代码后,仍然在“Microsoft Visual Basic for Applications”窗口中,点击“工具” > “引用”以进入“引用-Project1”对话框,并从“可用引用”列表框中勾选“Microsoft Word Object Library”和“Microsoft Excel Object Library”选项,见截图:

doc export tables to excel 2

4. 然后点击“确定”按钮退出对话框,现在,请按“F5”键运行代码,邮件正文中的所有表格都已导出到一个新的工作簿中,如下图所示:

doc export tables to excel 3

Outlook中的AI邮件助手:更智能的回复,更清晰的沟通(一键搞定!) 免费

使用Kutools for Outlook的AI邮件助手简化您的日常Outlook任务。这一强大工具会从您过去的邮件中学习,提供智能化且精准的回复建议,优化您的邮件内容,并帮助您轻松起草和润色邮件。
doc ai email handle

该功能支持:

  • 智能回复:根据您以往的对话生成量身定制、精准且即用的回复。
  • 增强内容:自动优化您的邮件文本,使其更加清晰且有影响力。
  • 轻松撰写:只需提供关键字,AI即可完成其余工作,并支持多种写作风格。
  • 智能扩展:通过上下文感知的建议扩展您的思路。
  • 总结概括:快速获取长邮件的简洁概述。
  • 全球覆盖:轻松将您的邮件翻译成任何语言。

该功能支持:

  • 智能邮件回复
  • 优化后的内容
  • 基于关键字的草稿
  • 智能内容扩展
  • 邮件总结
  • 多语言翻译

最重要的是,此功能永久完全免费不要再犹豫了——立即下载AI邮件助手并体验吧