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창에서도구>참조를 클릭하여참조 - Project1대화 상자로 이동한 후，Microsoft Excel Object Library옵션을사용 가능한 참조목록 상자에서 선택합니다。 스크린샷 참조：

4。 그런 다음확인버튼을 클릭하고F5키를 눌러 이 코드를 실행합니다。 그러면폴더 선택대화 상자가 나타나며， 내보내려는 폴더 구조이(가) 포함된 이메일 계정을 선택하세요합니다。 스크린샷 참조：

5。 그 후확인버튼을 클릭하면파일 저장창이 표시됩니다。 내보낸 파일의 저장 위치와 파일 이름을 지정하세요。 스크린샷 참조：

6。 마지막으로저장버튼을 클릭하면， 지정한 Excel 통합 문서에서 내보낸 폴더 구조을(를) 확인할 수 있습니다。 스크린샷 참조：