メインコンテンツへスキップ

OutlookからExcelにフォルダ構造をエクスポートする方法は?

著者:シャオヤン 最終更新日:2024年09月13日

この記事では、アカウントのフォルダ構造をOutlookからExcelファイルにエクスポートする方法を紹介します。 この記事の詳細でそれを達成してください。

VBAコードを使用して、アカウントのフォルダー構造をOutlookからExcelにエクスポートします


VBAコードを使用して、アカウントのフォルダー構造をOutlookからExcelにエクスポートします

次のVBAコードはあなたに有利かもしれません、以下のステップで行ってください:

1. Excelを有効にして、 Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2に設定します。 OK をクリックします。 インセット > モジュール、次のコードをに貼り付けます モジュール 窓。

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 ウィンドウ、クリック ツール > 参考情報 参考資料-Project1 ダイアログボックスをクリックし、チェックします MicrosoftExcelオブジェクトライブラリ オプションから 利用可能な参考文献 リストボックス、スクリーンショットを参照:

Excel1へのドキュメントエクスポートフォルダ構造

4。 次に、をクリックします OK ボタンを押して、 F5 このコードを実行するためのキー、 フォルダを選択してください ダイアログボックスが表示されます。フォルダ構造をエクスポートするメールアカウントを選択してください。スクリーンショットを参照してください。

Excel2へのドキュメントエクスポートフォルダ構造

5。 次に、をクリックします OK ボタン、 ファイル保存 ウィンドウが表示されます。このエクスポートされたファイルの場所とファイル名を指定してください。スクリーンショットを参照してください。

Excel3へのドキュメントエクスポートフォルダ構造

6。 最後に、 Save ボタンをクリックすると、保存した特定のExcelブックに移動して、エクスポートされたフォルダー構造を表示できます。スクリーンショットを参照してください。

Excel4へのドキュメントエクスポートフォルダ構造

最高のオフィス生産性向上ツール

速報: Outlook 向け Kutools がリリース 無償版!

まったく新しいKutools for Outlookを体験してください 70以上の素晴らしい機能を備えた無料版を永久にご利用いただけます! 今すぐダウンロードするにはクリックしてください!

🤖 クツールAI : 高度な AI テクノロジーを使用して、メールの返信、要約、最適化、拡張、翻訳、作成など、メールを簡単に処理します。

📧 自動メール: 自動返信(POP および IMAP で利用可能)  /  メール送信のスケジュール設定  /  メール送信時のルールによる自動CC/BCC  /  自動転送 (高度なルール)   /  あいさつを自動追加   /  複数受信者の電子メールを個別のメッセージに自動的に分割する ...

📨 電子メール管理: メールの取り消し  /  件名などで詐欺メールをブロック  /  重複するメールを削除する  /  Advanced Search  /  フォルダーを統合する ...

📁 アタッチメント プロバッチ保存  /  バッチデタッチ  /  バッチ圧縮  /  自動保存   /  自動デタッチ  /  自動圧縮 ...

🌟 インターフェースマジック: 😊もっと可愛くてクールな絵文字   /  重要なメールが届いたら通知する  /  Outlook を閉じる代わりに最小化する ...

???? ワンクリックの驚異: 受信した添付ファイルをすべてに返信する  /   フィッシングメール対策  /  🕘送信者のタイムゾーンを表示 ...

👩🏼‍🤝‍👩🏻 連絡先とカレンダー: 選択したメールから連絡先を一括追加  /  連絡先グループを個別のグループに分割する  /  誕生日のリマインダーを削除する ...

ワンクリックでKutools for Outlookを即座にロック解除—永久に無料待たずに今すぐダウンロードして効率を高めましょう!

Outlook 用の kutools の機能 1 Outlook 用の kutools の機能 2