Como exportar a tabela contida no corpo de um e-mail diretamente para o Excel no Outlook?

Quando recebe um e-mail com várias tabelas no corpo da mensagem, poderá precisar de exportar todas elas para uma folha de cálculo do Excel. Embora possa simplesmente copiá-las e colá-las na folha, apresento-lhe aqui um método prático e eficiente para lidar com essa tarefa — especialmente quando tem múltiplas tabelas para exportar.

Exporte todas as tabelas do corpo da mensagem do Outlook para uma folha de cálculo do Excel com código VBA

---

Exporte todas as tabelas do corpo da mensagem do Outlook para uma folha de cálculo do Excel com código VBA

Aplique o seguinte código VBA para exportar todas as tabelas presentes no corpo de uma mensagem diretamente para uma folha de cálculo do Excel.

1. Abra a mensagem da qual pretende exportar as tabelas e, em seguida, prima simultaneamente as teclas «ALT» + "F11" para abrir a janela do Microsoft Visual Basic for Applications.

2. Clique em «Inserir» > «Módulo» e cole o código seguinte na janela do Módulo.

Código VBA: Exporte todas as tabelas do corpo da mensagem para uma folha de cálculo do 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. Após colar o código acima, ainda na janela «Microsoft Visual Basic for Applications», clique em «Ferramentas» > «Referências» para abrir a caixa de diálogo «Referências – Project1» e selecione as opções «Microsoft Word Object Library» e «Microsoft Excel Object Library» na lista «Referências disponíveis», conforme ilustrado na imagem:

4. Em seguida, clique no botão «OK» para fechar a caixa de diálogo e, de seguida, prima a tecla "F5" para executar o código. Todas as tabelas no corpo da mensagem serão exportadas para um novo livro, tal como ilustrado na imagem seguinte: