Hoe een e-mailberichtentabel naar Excel exporteren in Outlook?
Wanneer u een e-mail ontvangt die tabellen in de berichttekst bevat, moet u soms alle tabellen uit de berichttekst exporteren naar een Excel-werkblad. Normaal gesproken kunt u de tabellen kopiëren en plakken in het werkblad, maar hier zal ik het hebben over een handige methode om deze taak uit te voeren wanneer er meerdere tabellen moeten worden geëxporteerd.
Exporteer alle tabellen van het Outlook-bericht naar een Excel-werkblad met VBA-code
Exporteer alle tabellen van het Outlook-bericht naar een Excel-werkblad met VBA-code
Pas de volgende VBA-code toe om alle tabellen uit één bericht naar een Excel-werkblad te exporteren.
1. Open het bericht dat u wilt exporteren en houd vervolgens de toetsen "ALT" + "F11" ingedrukt 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 van het bericht 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, nog steeds in het venster "Microsoft Visual Basic for Applications", klikt u op "Tools" > "References" om naar het dialoogvenster "References-Project1" te gaan, en vink de opties "Microsoft Word Object Library" en "Microsoft Excel Object Library" aan in de lijst met "Beschikbare referenties", zie screenshot:
4. Klik vervolgens op de knop "OK" om het dialoogvenster te sluiten, en druk nu op de toets "F5" om de code uit te voeren. Alle tabellen in de berichttekst zijn geëxporteerd naar een nieuwe werkmap zoals in de volgende schermafbeelding te zien is:
AI Mail Assistant in Outlook: Slimmere antwoorden, duidelijkere communicatie (één-klik magie!) GRATIS
Stroomlijn uw dagelijkse Outlook-taken met de AI Mail Assistant van Kutools voor Outlook. Deze krachtige tool leert uit uw eerdere e-mails om intelligente en nauwkeurige reacties te bieden, uw e-mailinhoud te optimaliseren en u te helpen berichten moeiteloos op te stellen en te verfijnen.
Deze functie ondersteunt:
- Slimme antwoorden: Ontvang reacties die zijn samengesteld uit uw eerdere gesprekken - afgestemd, precies en klaar voor gebruik.
- Verbeterde inhoud: Automatisch uw e-mailtekst verfijnen voor meer duidelijkheid en impact.
- Makkelijke samenstelling: Geef slechts trefwoorden op en laat AI de rest doen, met meerdere schrijfstijlen.
- Intelligente uitbreidingen: Breid uw gedachten uit met contextbewuste suggesties.
- Samenvatting: Krijg direct een beknopt overzicht van lange e-mails.
- Wereldwijde bereik: Vertaal uw e-mails eenvoudig in elke taal.
Deze functie ondersteunt:
- Slimme e-mailreacties
- Geoptimaliseerde inhoud
- Op trefwoorden gebaseerde concepten
- Intelligente inhoudsuitbreiding
- E-mailsamenvatting
- Meertalige vertaling
Het beste van alles is dat deze functie voor altijd volledig gratis is! Wacht niet langer — download AI Mail Assistant nu en geniet
Beste Office-productiviteitstools
Breaking News: Kutools for Outlook lanceert een gratis versie!
Ervaar de geheel nieuwe Kutools for Outlook met meer dan100 fantastische functies! Klik om nu te downloaden!
📧 E-mailautomatisering: Automatisch antwoorden (Beschikbaar voor POP en IMAP) / Schema E-mail verzenden / Automatisch CC/BCC per Regel bij Verzenden / Automatisch doorsturen (Geavanceerde regels) / Begroeting automatisch toevoegen / Meerdere ontvangers automatisch opsplitsen naar individuele E-mail...
📨 E-mailbeheer: E-mail terughalen / Scam-e-mails blokkeren op onderwerp en anderen / Duplicaat verwijderen / Geavanceerd Zoeken / Organiseer mappen...
📁 Bijlagen Pro: Batch opslaan / Batch loskoppelen / Batch comprimeren / Automatisch opslaan / Automatisch loskoppelen / Automatisch comprimeren...
🌟 Interface-magie: 😊Meer mooie en gave emoji's / Herinneren wanneer belangrijke e-mails binnenkomen / Outlook minimaliseren in plaats van afsluiten...
👍 Wonders met één klik: Antwoord Allen met Bijlagen / Anti-phishing e-mails / 🕘Tijdzone van de afzender weergeven...
👩🏼🤝👩🏻 Contacten & Agenda: Batch toevoegen van contacten vanuit geselecteerde E-mails / Contactgroep opsplitsen naar individuele groepen / Verjaardagsherinnering verwijderen...
Gebruik Kutools in je voorkeurt taal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en meer dan40 andere talen!
🚀 Eén klik downloaden — Ontvang alle Office-invoegtoepassingen
Sterk aanbevolen: Kutools for Office (5-in-1)
Met één klik download je vijf installatiepakketten tegelijk — Kutools voor Excel, Outlook, Word, PowerPoint en Office Tab Pro. Klik om nu te downloaden!
- ✅ Eén-klik gemak: Download alle vijf de installaties in één actie.
- 🚀 Klaar voor elke Office-taak: Installeer de invoegtoepassingen die je nodig hebt, wanneer je ze nodig hebt.
- 🧰 Inclusief: Kutools voor Excel / Kutools for Outlook / Kutools voor Word / Office Tab Pro / Kutools voor PowerPoint