Wie exportiere ich die Ordnerstruktur von Outlook nach Excel?
In diesem Artikel werde ich vorstellen, wie die Ordnerstruktur eines Kontos aus Outlook in eine Excel-Datei exportiert wird. Bitte erreichen Sie dies mit den Details dieses Artikels.
Exportieren Sie die Ordnerstruktur eines Kontos mithilfe von VBA-Code aus Outlook nach Excel
Exportieren Sie die Ordnerstruktur eines Kontos mithilfe von VBA-Code aus Outlook nach Excel
Der folgende VBA-Code kann Ihnen einen Gefallen tun. Führen Sie die folgenden Schritte aus:
1. Aktivieren Sie Excel 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 der Ordnerstruktur eines Kontos aus Outlook nach Excel:
Dim xExcelApp As Excel.Application
Dim xWb As Excel.Workbook
Dim xWs As Excel.Worksheet
Dim xMainFolderCount As Long
Sub OutlookExportFolderStructureToExcel()
Dim xFolder As Folder
Dim xExcelFile As String
Dim xFileDialog As FileDialog
On Error Resume Next
Set xFolder = Outlook.Application.Session.PickFolder
If xFolder Is Nothing Then Exit Sub
Set xExcelApp = New Excel.Application
Set xWb = xExcelApp.Workbooks.Add
Set xWs = xWb.Sheets(1)
With xWs.Range("A1", "A1")
.Value = "Folder Structure"
.Font.Size = 14
.Font.Bold = True
End With
xMainFolderCount = Len(xFolder.FolderPath) - Len(Replace(xFolder.FolderPath, "\", "")) + 1
Call ExportToExcel(xFolder.FolderPath, xFolder.Name)
Call ProcessFolders(xFolder.Folders)
xWs.Columns("A").AutoFit
Set xFileDialog = xExcelApp.FileDialog(msoFileDialogSaveAs)
With xFileDialog
.AllowMultiSelect = False
.FilterIndex = 1
If .Show = 0 Then
xWb.Close False
xExcelApp.Quit
Set xExcelApp = Nothing
Exit Sub
End If
xExcelFile = .SelectedItems.Item(1)
End With
xWb.Close True, xExcelFile
MsgBox "Export complete!", vbExclamation, "Kutools for Outlook"
End Sub
Sub ProcessFolders(ByVal xFlds As Folders)
Dim xSubFolder As Folder
For Each xSubFolder In xFlds
If xSubFolder.Name <> "Conversation Action Settings" And xSubFolder.Name <> "Quick Step Settings" Then
Call ExportToExcel(xSubFolder.FolderPath, xSubFolder.Name)
Call ProcessFolders(xSubFolder.Folders)
End If
Next
End Sub
Sub ExportToExcel(ByRef xFolderPath As String, xFolderName As String)
Dim i, n As Long
Dim xPrefix As String
Dim xLastRow As Integer
i = Len(xFolderPath) - Len(Replace(xFolderPath, "\", "")) - xMainFolderCount
For n = 0 To i
xPrefix = xPrefix & "-"
Next
xFolderName = xPrefix & xFolderName
xLastRow = xWs.UsedRange.Rows.Count + 1
xWs.Range("A" & xLastRow) = xFolderName
End Sub
3. 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 Excel-Objektbibliothek Option von der Verfügbare Referenzen Listenfeld, siehe Screenshot:
4. Dann klick OK und drücken Sie F5 Schlüssel zum Ausführen dieses Codes, a Ordner auswählen Wenn das Dialogfeld geöffnet wird, wählen Sie das E-Mail-Konto aus, dessen Ordnerstruktur exportiert werden soll. Siehe Screenshot:
5. Und dann klicken OK Knopf, a Datei speichern Wenn das Fenster angezeigt wird, geben Sie einen Speicherort und einen Dateinamen für diese exportierte Datei an. Siehe Screenshot:
6. Endlich, klick Speichern Klicken Sie auf die Schaltfläche, und Sie können zu der von Ihnen gespeicherten Excel-Arbeitsmappe wechseln, um die exportierte Ordnerstruktur anzuzeigen. Siehe Screenshot:
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.
