Wie exportiert man die Ordnerstruktur von Outlook nach Excel?

Author: Xiaoyang Last Modified: 2025-08-06

In diesem Artikel werde ich vorstellen, wie Sie die Ordnerstruktur eines Kontos von Outlook in eine Excel-Datei exportieren. Bitte folgen Sie den Details dieses Artikels, um dies zu erreichen.

Exportieren der Ordnerstruktur eines Kontos von Outlook nach Excel mit VBA-Code

Exportieren der Ordnerstruktur eines Kontos von Outlook nach Excel mit VBA-Code

Der folgende VBA-Code kann Ihnen helfen. Bitte folgen Sie den unten aufgeführten Schritten:

1. Aktivieren Sie Excel und halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Code in das Modulfenster ein.

VBA-Code: Exportieren der Ordnerstruktur eines Kontos von 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. Immer noch im Fenster Microsoft Visual Basic for Applications, klicken Sie auf Extras > Verweise, um zum Dialogfeld Verweise-Projekt1 zu gelangen, und aktivieren Sie die Option Microsoft Excel Object Library aus der Liste der verfügbaren Verweise, siehe Screenshot:

4. Klicken Sie dann auf die Schaltfläche OK und drücken Sie die F5-Taste, um diesen Code auszuführen. Ein Dialogfeld Ordner auswählen wird angezeigt. Bitte wählen Sie das E-Mail-Konto aus, dessen Ordnerstruktur Sie exportieren möchten, siehe Screenshot:

5. Klicken Sie anschließend auf die Schaltfläche OK. Ein Fenster Datei speichern wird angezeigt. Bitte geben Sie einen Speicherort und einen Dateinamen für diese exportierte Datei an, siehe Screenshot:

6. Klicken Sie abschließend auf die Schaltfläche Speichern, und Sie können zur spezifischen Excel-Arbeitsmappe gehen, die Sie gespeichert haben, um die exportierte Ordnerstruktur anzuzeigen, siehe Screenshot: