Wie exportiert man eine Tabelle aus dem E-Mail-Text in Outlook nach Excel?

Wenn Sie eine E-Mail erhalten, die im Textbereich Tabellen enthält, müssen Sie diese gelegentlich in ein Excel-Arbeitsblatt exportieren. Normalerweise können Sie die Tabellen einfach kopieren und in das Arbeitsblatt einfügen. Doch was tun, wenn mehrere Tabellen exportiert werden müssen? Hier stelle ich eine nützliche Methode vor, um diese Aufgabe effizient zu bewältigen.

Exportieren Sie alle Tabellen aus dem Outlook-Nachrichtentext mithilfe von VBA-Code in ein Excel-Arbeitsblatt

---

Exportieren Sie alle Tabellen aus dem Outlook-Nachrichtentext mithilfe von VBA-Code in ein Excel-Arbeitsblatt

Verwenden Sie den folgenden VBA-Code, um sämtliche Tabellen aus dem Nachrichtentext einer E-Mail in ein Excel-Arbeitsblatt zu exportieren.

1. Öffnen Sie die Nachricht, deren Tabellen Sie exportieren möchten, und drücken Sie gleichzeitig die Tasten „ALT“ + „F11“, um das Fenster „Microsoft Visual Basic for Applications“ zu öffnen.

2. Klicken Sie auf „Einfügen“ > „Modul“ und fügen Sie den folgenden Code in das Modulfenster ein.

VBA-Code: Exportieren aller Tabellen aus dem Nachrichtentext in ein Excel-Arbeitsblatt

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. Nachdem Sie den obigen Code eingefügt haben, klicken Sie im Fenster „Microsoft Visual Basic for Applications“ auf „Extras“ > „Verweise“, um das Dialogfeld „Verweise – Projekt1“ zu öffnen. Aktivieren Sie dort in der Liste „Verfügbare Verweise“ die Optionen „Microsoft Word Object Library“ und „Microsoft Excel Object Library“. Siehe Screenshot:

4. Klicken Sie anschließend auf „OK“, um das Dialogfeld zu schließen, und drücken Sie die Taste „F5“, um den Code auszuführen. Alle Tabellen im Nachrichtentext wurden wie im folgenden Screenshot gezeigt in ein neues Arbeitsblatt exportiert: