Como exportar rapidamente todas as tabelas de um e-mail do Outlook para uma pasta de trabalho do Excel via VBA

Se você deseja exportar rapidamente as tabelas de um e-mail do Outlook para um arquivo do Excel, pode utilizar o método apresentado neste artigo. Ele usará o VBA para ajudá-lo a conseguir isso com apenas um clique.

Como todos sabemos, o Excel foi projetado para tabelas e estatísticas de dados. Assim, ao receber um e-mail que contenha várias tabelas no corpo, você pode querer exportar todas essas tabelas para um arquivo Excel para poder analisar melhor os dados das tabelas. Portanto, aqui ensinaremos como exportar rapidamente todas as tabelas de um e-mail para uma nova pasta de trabalho do Excel. Agora, por favor, continue lendo para obter o código VBA e as etapas detalhadas.

Exportar todas as tabelas de um e-mail do Outlook para uma pasta de trabalho do Excel

1. Para começar, abra o aplicativo Outlook como de costume.
2. Em seguida, na janela principal do Outlook, pressione os botões de tecla “Alt + F11”.
3. Em seguida, na janela “Microsoft Visual Basic for Applications” a seguir, você deve abrir um módulo vazio.
4. Posteriormente, você precisa copiar o código VBA abaixo para este módulo.

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

5. Depois disso, você precisa adicionar a nova macro à Barra de Ferramentas de Acesso Rápido.
6. Mais tarde, você deve alterar o nível de segurança de macro do Outlook para baixo.
7. Em última análise, você poderia ter uma tentativa.

• Em primeiro lugar, selecione um e-mail de origem na lista de e-mail.
• Em seguida, clique no botão de macro na barra de ferramentas de acesso rápido.
• Imediatamente, um novo arquivo do Excel será exibido.
• Se houver apenas uma tabela no e-mail, esta tabela será exportada para a primeira planilha do arquivo Excel, conforme a captura de tela a seguir:
• Mas se houver mais de uma tabela no e-mail, cada tabela será copiada para uma planilha individual.

Livrar-se da miserável perda de dados PST

O Outlook é propenso a erros e corrupção. Portanto, é uma tarefa tediosa e árdua proteger seus dados PST e evitar a dolorosa perda de dados PST. Em primeiro lugar, você precisa fazer backup de seus arquivos PST regularmente. Além disso, você tem que preparar um potente correção PST utilitário, como DataNumen Outlook Repair. Ele pode resgatá-lo de todos os tipos de problemas de PST com facilidade e sem esforço.

Introdução do autor:

Shirley Zhang é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo sql corrompido e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com