如何将 Outlook 的文件夹结构导出到 Excel？

本文将为您详细介绍如何将指定账户的文件夹结构从 Outlook 导出至 Excel 文件。请按照以下步骤操作，实现导出功能。

使用 VBA 代码将某个账户的文件夹结构从 Outlook 导出到 Excel

---

使用 VBA 代码将某个账户的文件夹结构从 Outlook 导出到 Excel

下面的 VBA 代码可以帮助您，请按照以下步骤操作：

1. 启动 Excel 后，按住 ALT + F11 键即可打开 Microsoft Visual Basic for Applications 窗口。

2. 点击插入 > 模块，然后将以下代码粘贴到模块窗口中。

VBA 代码：将某个账户的文件夹结构从 Outlook 导出到 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. 在 Microsoft Visual Basic for Applications 窗口中，点击工具 > 引用，进入 References-Project 1 对话框，在可用引用列表框中勾选 Microsoft Excel 对象库选项，参见截图：

4. 点击确定按钮后，按下 F5 键运行代码，即会弹出选择文件夹对话框。请选择要导出文件夹结构的电子邮件帐户，参见截图：

5. 接着点击确定按钮，即会弹出文件保存窗口，请为导出的文件指定保存位置和文件名，参见截图：

6. 最后，点击保存按钮后，您即可前往已保存的 Excel 工作表，查看导出的文件夹结构，详见截图：