Wie exportiere ich eine E-Mail-Body-Tabelle, um sie in Outlook zu übertreffen?
Wenn Sie eine E-Mail erhalten, die einige Tabellen im Hauptteil enthält, müssen Sie manchmal alle Tabellen aus dem Nachrichtentext in ein Excel-Arbeitsblatt exportieren. Normalerweise können Sie die Tabellen kopieren und in das Arbeitsblatt einfügen. Hier werde ich jedoch über eine nützliche Methode zur Lösung dieses Auftrags sprechen, wenn mehrere Tabellen exportiert werden müssen.
Exportieren Sie alle Tabellen aus dem Outlook-Nachrichtentext in ein Excel-Arbeitsblatt mit VBA-Code
Exportieren Sie alle Tabellen aus dem Outlook-Nachrichtentext in ein Excel-Arbeitsblatt mit VBA-Code
Wenden Sie den folgenden VBA-Code an, um alle Tabellen aus einem Nachrichtentext in ein Excel-Arbeitsblatt zu exportieren.
1. Öffnen Sie die Nachricht, dass Sie die Tabellen exportieren möchten, und halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modul Fenster.
VBA-Code: Exportieren Sie alle Tabellen aus dem Nachrichtentext in das 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. Nach dem Einfügen des obigen Codes noch in der Microsoft Visual Basic für Applikationen Klicken Sie im Fenster Tools > Bibliographie auf dem Sprung Referenzen-Projekt1 Dialogfeld und überprüfen Sie Microsoft Word-Objektbibliothek und Microsoft Excel-Objektbibliothek Optionen aus dem Verfügbare Referenzen Listenfeld, siehe Screenshot:
4. Dann klick OK Klicken Sie auf die Schaltfläche, um das Dialogfeld zu verlassen F5 Mit dem Schlüssel zum Ausführen des Codes wurden alle Tabellen im Nachrichtentext wie folgt in eine neue Arbeitsmappe exportiert:
Beste Office-Produktivitätstools
Kutools for Outlook - Über 100 leistungsstarke Funktionen zur Optimierung Ihres Outlooks
🤖 KI-Mail-Assistent: Sofortige Profi-E-Mails mit KI-Magie – geniale Antworten mit einem Klick, perfekter Ton, mehrsprachige Beherrschung. Verwandeln Sie den E-Mail-Versand mühelos! ...
📧 E-Mail Automation: Abwesenheit (verfügbar für POP und IMAP) / Planen Sie das Senden von E-Mails / Automatisches CC/BCC nach Regeln beim E-Mail-Versand / Automatische Weiterleitung (erweiterte Regeln) / Begrüßung automatisch hinzufügen / Teilen Sie E-Mails mit mehreren Empfängern automatisch in einzelne Nachrichten auf ...
📨 E-Mail-Management: E-Mails einfach abrufen / Blockieren Sie betrügerische E-Mails nach Betreff und anderen / Doppelte E-Mails löschen / Erweiterte Suche / Ordner konsolidieren ...
📁 Anhänge Pro: Batch speichern / Stapeltrennung / Stapelkomprimierung / Automatisches Speichern / Automatische Trennung / Automatische Komprimierung ...
???? Schnittstellenmagie: 😊Mehr hübsche und coole Emojis / Steigern Sie Ihre Outlook-Produktivität mit Registerkartenansichten / Ausblick minimieren statt schließen ...
👍 Wunder mit einem Klick: Allen mit eingehenden Anhängen antworten / Anti-Phishing-E-Mails / 🕘Zeitzone des Absenders anzeigen ...
👩🏼🤝👩🏻 Kontakte und Kalender: Fügen Sie Kontakte aus ausgewählten E-Mails im Stapel hinzu / Teilen Sie eine Kontaktgruppe in einzelne Gruppen auf / Geburtstagserinnerungen entfernen ...
Auf über 100 Eigenschaften Warten Sie auf Ihre Erkundung! Klicken Sie hier, um mehr zu erfahren.