Hoe exporteer ik de hoofdtekst van een e-mail om uit te blinken in Outlook?
Wanneer u een e-mail ontvangt die enkele tabellen in de hoofdtekst bevat, moet u soms alle tabellen van de berichttekst naar een Excel-werkblad exporteren. Normaal gesproken kunt u de tabellen naar het werkblad kopiëren en plakken, maar hier zal ik het hebben over een handige methode om deze taak op te lossen wanneer er meerdere tabellen moeten worden geëxporteerd.
Exporteer alle tabellen van Outlook-berichttekst naar Excel-werkblad met VBA-code
Exporteer alle tabellen van Outlook-berichttekst naar Excel-werkblad met VBA-code
Pas de volgende VBA-code toe om alle tabellen van één berichttekst naar Excel-werkblad te exporteren.
1. Open het bericht dat u de tabellen wilt exporteren en houd vervolgens de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
2. Klikken Invoegen > Moduleen plak de volgende code in het Module venster.
VBA-code: exporteer alle tabellen van de berichttekst naar het 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. Na het plakken van de bovenstaande code, nog steeds in het Microsoft Visual Basic voor toepassingen venster klikt Tools > Referenties naar de Referenties-Project1 dialoogvenster en vink aan Microsoft Word-objectbibliotheek en Microsoft Excel-objectbibliotheek opties uit de Beschikbare referenties keuzelijst, zie screenshot:
4. Dan klikken OK om het dialoogvenster te verlaten, en nu alstublieft F5 sleutel om de code uit te voeren, alle tabellen in de berichttekst zijn geëxporteerd naar een nieuwe werkmap zoals in de volgende schermafbeelding:
Beste Office-productiviteitstools
Kutools for Outlook - Meer dan 100 krachtige functies om uw Outlook een boost te geven
🤖 AI Mail-assistent: Directe professionele e-mails met AI-magie: met één klik geniale antwoorden, perfecte toon, meertalige beheersing. Transformeer e-mailen moeiteloos! ...
???? Email Automation: Niet aanwezig (beschikbaar voor POP en IMAP) / Plan het verzenden van e-mails / Automatische CC/BCC volgens regels bij het verzenden van e-mail / Automatisch doorsturen (geavanceerde regels) / Begroeting automatisch toevoegen / Splits e-mails van meerdere ontvangers automatisch op in individuele berichten ...
📨 email management: Gemakkelijk e-mails herinneren / Blokkeer zwendel-e-mails van onderwerpen en anderen / Verwijder dubbele e-mails / Uitgebreid Zoeken / Consolideer mappen ...
📁 Bijlagen Pro: Batch opslaan / Batch losmaken / Batchcompressie / Automatisch opslaan / Automatisch loskoppelen / Automatisch comprimeren ...
???? Interface-magie: 😊Meer mooie en coole emoji's / Verhoog uw Outlook-productiviteit met weergaven met tabbladen / Minimaliseer Outlook in plaats van te sluiten ...
???? Wonderen met één klik: Beantwoord iedereen met inkomende bijlagen / Antiphishing-e-mails / 🕘Toon de tijdzone van de afzender ...
👩🏼🤝👩🏻 Contacten en agenda: Batchcontacten toevoegen uit geselecteerde e-mails / Splits een contactgroep in individuele groepen / Verwijder verjaardagsherinneringen ...
Over 100 Eigenschappen Wacht op je verkenning! Klik hier om meer te ontdekken.