如何通过 VBA 将 Outlook 电子邮件中的所有表格快速导出到 Excel 工作簿

展望解决方案 2025 年 9 月 29 日
立即分享：

如果您想快速将表格从 Outlook 电子邮件导出到 Excel 文件，您可以使用本文介绍的方法。 它将使用 VBA 帮助您一键实现。

众所周知，Excel是为表格和数据统计而设计的。 因此，当您收到一封正文中包含多个表格的电子邮件时，您可能希望将这些表格全部导出到一个 Excel 文件中，以便更好地分析表格中的数据。 因此，在这里我们将教您如何快速将所有表格从电子邮件导出到新的 Excel 工作簿。 现在请继续阅读以获取 VBA 代码和详细步骤。

通过 VBA 将 Outlook 电子邮件中的所有表格快速导出到 Excel 工作簿

将所有表格从 Outlook 电子邮件导出到 Excel 工作簿

  1. 首先，像往常一样启动 Outlook 应用程序。
  2. 然后在 Outlook 主窗口中，按“Alt + F11”键按钮。
  3. 接下来在下面的“Microsoft Visual Basic for Applications”窗口中，您应该打开一个空模块。
  4. 随后，您需要将下面的 VBA 代码复制到该模块中。
Sub ExportTablesinEmailtoExcel()
    Dim objMail As Outlook.MailItem
    Dim objWordDocument As Word.Document
    Dim objTable As Word.Table
    Dim lTableCount As Long
    Dim objExcelApp As Excel.Application
    Dim objExcelWorkbook As Excel.Workbook
    Dim objExcelWorksheet As Excel.Worksheet
    Dim i As Long
 
    'Create a new excel workbook
    Set objExcelApp = CreateObject("Excel.Application")
    Set objExcelWorkbook = objExcelApp.Workbooks.Add
    objExcelApp.Visible = True
 
    'Get the table(s) in the selected email
    Set objMail = Outlook.Application.ActiveExplorer.Selection.item(1)
    Set objWordDocument = objMail.GetInspector.WordEditor
    lTableCount = objWordDocument.Tables.Count
 
 
    If lTableCount > 1 Then
       'If there is more than one table
       'Copy each table into separate worksheet
       For i = 1 To lTableCount
           Set objTable = objWordDocument.Tables(i)
           objTable.Range.Copy
 
           Set objExcelWorksheet = objExcelWorkbook.Sheets(i)
           objExcelWorksheet.Paste
           objExcelWorksheet.Columns.AutoFit
       Next
    Else
      'If there is only one table
      'Just copy it into the first worksheet
      Set objTable = objWordDocument.Tables(1)
      objTable.Range.Copy
 
      Set objExcelWorksheet = objExcelWorkbook.Sheets(1)
      objExcelWorksheet.Paste
      objExcelWorksheet.Columns.AutoFit
    End If
End Sub

VBA 代码 - 将所有表格从 Outlook 电子邮件导出到 Excel 工作簿

  1. 之后，您需要将新宏添加到快速访问工具栏。
  2. 稍后您应该将 Outlook 宏安全级别更改为低。
  3. 最终，您可以尝试一下。
  • 首先，在邮件列表中选择一个源邮件。
  • 然后单击快速访问工具栏中的宏按钮。选择电子邮件并运行宏
  • 立即会显示一个新的 Excel 文件。
  • 如果邮件中只有一个表格，这个表格会被导出到Excel文件的第一个工作表中，如下截图：Excel工作簿
  • 但是，如果电子邮件中有多个表格，则每个表格都会被复制到单独的工作表中。

摆脱悲惨的 PST 数据丢失

Outlook 容易出错和损坏。 因此，保护​​您的 PST 数据并避免痛苦的 PST 数据丢失是一项繁重而艰巨的任务。 首先，您需要定期备份 PST 文件。 此外，你必须准备一个强大的 PST修复 实用程序，例如 DataNumen Outlook Repair. 它可以毫不费力地将您从各种 PST 麻烦中解救出来。

作者简介：

Shirley Zhang 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术领域的世界领先者，包括 损坏的sql 和 outlook 修复软件产品。 欲了解更多信息，请访问 datanumen.com

立即分享：

评论被关闭。