Wenn Sie die Tabellen schnell aus einer Outlook-E-Mail in eine Excel-Datei exportieren möchten, können Sie die in diesem Artikel vorgestellte Methode verwenden. Es wird VBA verwenden, um dies mit nur einem Klick zu erreichen.
Wie wir alle wissen, ist Excel für Tabellen und Datenstatistiken konzipiert. Wenn Sie eine E-Mail erhalten, die mehrere Tabellen im Hauptteil enthält, möchten Sie möglicherweise alle diese Tabellen in eine Excel-Datei exportieren, um die Daten in den Tabellen besser analysieren zu können. Daher erfahren Sie hier, wie Sie schnell alle Tabellen aus einer E-Mail in eine neue Excel-Arbeitsmappe exportieren können. Lesen Sie jetzt bitte weiter, um den VBA-Code und detaillierte Schritte zu erhalten.
Exportieren Sie alle Tabellen aus einer Outlook-E-Mail in eine Excel-Arbeitsmappe
- Starten Sie zunächst Ihre Outlook-Anwendung wie gewohnt.
- Drücken Sie dann im Outlook-Hauptfenster die Tasten „Alt + F11“.
- Als nächstes sollten Sie im folgenden Fenster "Microsoft Visual Basic für Anwendungen" ein leeres Modul öffnen.
- Anschließend müssen Sie den folgenden VBA-Code in dieses Modul kopieren.
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
- Danach müssen Sie das neue Makro zur Symbolleiste für den Schnellzugriff hinzufügen.
- Später sollten Sie die Sicherheitsstufe Ihres Outlook-Makros auf niedrig ändern.
- Letztendlich könnten Sie es versuchen.
- Wählen Sie zunächst eine Quell-E-Mail in der E-Mail-Liste aus.
- Klicken Sie dann in der Symbolleiste für den Schnellzugriff auf die Makro-Schaltfläche.
- Sofort wird eine neue Excel-Datei angezeigt.
- Wenn die E-Mail nur eine Tabelle enthält, wird diese Tabelle wie im folgenden Screenshot in das erste Arbeitsblatt der Excel-Datei exportiert:
- Wenn die E-Mail jedoch mehr als eine Tabelle enthält, wird jede Tabelle in ein einzelnes Arbeitsblatt kopiert.
Befreien Sie sich von elendem PST-Datenverlust
Outlook ist anfällig für Fehler und Korruption. Daher ist es eine mühsame und mühsame Aufgabe, Ihre PST-Daten zu schützen und schmerzhaften PST-Datenverlust zu vermeiden. Zunächst müssen Sie Ihre PST-Dateien regelmäßig sichern. Außerdem muss man einen Potenten vorbereiten PST beheben Dienstprogramm, wie DataNumen Outlook Repair. Es kann Sie mühelos von allen Arten von PST-Problemen befreien.
Einführung des Autors:
Shirley Zhang ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich beschädigtes SQL und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX