Snel alle tabellen exporteren vanuit een Outlook-e-mail naar een Excel-werkmap via VBA

Als u de tabellen snel vanuit een Outlook-e-mail naar een Excel-bestand wilt exporteren, kunt u de methode gebruiken die in dit artikel is geïntroduceerd. Het zal VBA gebruiken om u te helpen dit te bereiken met slechts één klik.

Zoals we allemaal weten, is Excel ontworpen voor tabellen en gegevensstatistieken. Als u dus een e-mail ontvangt met meerdere tabellen in de hoofdtekst, wilt u misschien al deze tabellen exporteren naar een Excel-bestand om de gegevens in de tabellen beter te analyseren. Daarom leren we u hier hoe u snel alle tabellen vanuit een e-mail naar een nieuwe Excel-werkmap kunt exporteren. Lees nu verder om de VBA-code en gedetailleerde stappen te krijgen.

Exporteer alle tabellen vanuit een Outlook-e-mail naar een Excel-werkmap

1. Begin door uw Outlook-applicatie zoals gebruikelijk te starten.
2. Druk vervolgens in het hoofdvenster van Outlook op de toetsen "Alt + F11".
3. Vervolgens moet u in het volgende venster “Microsoft Visual Basic for Applications” een lege module openen.
4. Vervolgens dient u onderstaande VBA-code naar deze module te kopiëren.

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. Daarna moet u de nieuwe macro toevoegen aan de werkbalk Snelle toegang.
6. Later moet u het macrobeveiligingsniveau van uw Outlook op laag zetten.
7. Uiteindelijk zou je het kunnen proberen.

• Selecteer eerst een bron-e-mailadres in de e-maillijst.
• Klik vervolgens op de macroknop in de werkbalk Snelle toegang.
• Meteen wordt een nieuw Excel-bestand weergegeven.
• Als er maar één tabel in de e-mail staat, wordt deze tabel geëxporteerd naar het eerste werkblad van het Excel-bestand, zoals in de volgende schermafbeelding:
• Maar als de e-mail meer dan één tabel bevat, wordt elke tabel naar een afzonderlijk werkblad gekopieerd.

Weg met ellendig PST-gegevensverlies

Outlook is vatbaar voor fouten en corruptie. Daarom is het een vervelende en zware taak om uw PST-gegevens te beschermen en pijnlijk PST-gegevensverlies te voorkomen. Ten eerste moet u regelmatig een back-up van uw PST-bestanden maken. Bovendien moet je een potente bereiden PST-oplossing hulpprogramma, zoals DataNumen Outlook Repair​ Het kan u moeiteloos van allerlei PST-problemen redden.

Auteur Introductie:

Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder beschadigde sql en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com