Hoe exporteert u een tabel uit de e-mailbody naar Excel in Outlook?

Wanneer u een e-mail ontvangt met tabellen in de berichttekst, moet u die soms allemaal exporteren naar een Excel-werkblad. Hoewel u de tabellen normaal gesproken eenvoudig kunt kopiëren en plakken, bespreek ik hier een handige methode voor het efficiënt exporteren van meerdere tabellen tegelijk.

Exporteer alle tabellen uit de Outlook-berichtbody naar een Excel-werkblad met VBA-code

---

Exporteer alle tabellen uit de Outlook-berichtbody naar een Excel-werkblad met VBA-code

Pas de volgende VBA-code toe om alle tabellen uit de berichttekst naar één Excel-werkblad te exporteren.

1. Open het bericht waarvan u de tabellen wilt exporteren en druk vervolgens op "ALT" + "F11" om het venster Microsoft Visual Basic for Applications te openen.

2. Klik op 'Invoegen' > 'Module' en plak de volgende code in het Module-venster.

VBA-code: Exporteer alle tabellen uit de berichtbody naar een Excel-werkblad

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. Nadat u de bovenstaande code hebt geplakt, klikt u in het venster "Microsoft Visual Basic for Applications" op "Extra" > „Verwijzingen" om het dialoogvenster „Verwijzingen – Project1" te openen en vinkt u in het vak „Beschikbare verwijzingen" de opties "Microsoft Word Object Library" en „Microsoft Excel Object Library" aan, zoals te zien is in de onderstaande schermafbeelding:

4. Klik daarna op de knop „OK" om het dialoogvenster te sluiten en druk op de toets "F5" om de code uit te voeren. Alle tabellen in de berichtbody zijn nu geëxporteerd naar een nieuw werkblad, zoals in de volgende schermafbeelding te zien is: