Come esportare la tabella nel corpo di un'email da Excel a Outlook?

Quando si riceve un'email con tabelle nel corpo del messaggio, potrebbe essere necessario esportarle tutte in un foglio di lavoro Excel. Anche se è possibile copiarle e incollarle manualmente, di seguito ti mostro un metodo efficace per gestire l’esportazione quando devi trasferire più tabelle contemporaneamente.

Esporta tutte le tabelle dal corpo del messaggio di Outlook al foglio di lavoro Excel con codice VBA

---

Esporta tutte le tabelle dal corpo del messaggio di Outlook al foglio di lavoro Excel con codice VBA

Applica il seguente codice VBA per esportare tutte le tabelle presenti nel corpo di un messaggio direttamente in un foglio di lavoro Excel.

1. Apri il messaggio da cui desideri esportare le tabelle, quindi premi contemporaneamente i tasti «ALT» + "F11" per aprire la finestra di «Microsoft Visual Basic for Applications».

2. Fai clic su «Inserisci» > «Modulo» e incolla il codice seguente nella finestra del modulo.

Codice VBA: Esporta tutte le tabelle dal corpo del messaggio al foglio di lavoro 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. Dopo aver incollato il codice indicato sopra, sempre nella finestra «Microsoft Visual Basic for Applications», fai clic su «Strumenti» > «Riferimenti» per aprire la finestra di dialogo "Riferimenti - Project1", quindi seleziona le opzioni «Microsoft Word Object Library» e «Microsoft Excel Object Library» dall'elenco «Riferimenti disponibili», come mostrato nello screenshot:

4. Fai quindi clic sul pulsante «OK» per chiudere la finestra di dialogo e premi il tasto "F5" per eseguire il codice: tutte le tabelle presenti nel corpo del messaggio verranno esportate in una nuova cartella di lavoro, come mostrato nello screenshot seguente: