OutlookからExcelにフォルダ構造をエクスポートする方法は?
この記事では、アカウントのフォルダ構造を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オブジェクトライブラリ オプションから 利用可能な参考文献 リストボックス、スクリーンショットを参照:

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

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

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

最高のオフィス生産性向上ツール
速報: Outlook 向け Kutools がリリース 無償版!
まったく新しいKutools for Outlookを体験してください 70以上の素晴らしい機能を備えた無料版を永久にご利用いただけます! 今すぐダウンロードするにはクリックしてください!
🤖 クツールAI : 高度な AI テクノロジーを使用して、メールの返信、要約、最適化、拡張、翻訳、作成など、メールを簡単に処理します。
📧 自動メール: 自動返信(POP および IMAP で利用可能) / メール送信のスケジュール設定 / メール送信時のルールによる自動CC/BCC / 自動転送 (高度なルール) / あいさつを自動追加 / 複数受信者の電子メールを個別のメッセージに自動的に分割する ...
📨 電子メール管理: メールの取り消し / 件名などで詐欺メールをブロック / 重複するメールを削除する / Advanced Search / フォルダーを統合する ...
📁 アタッチメント プロ: バッチ保存 / バッチデタッチ / バッチ圧縮 / 自動保存 / 自動デタッチ / 自動圧縮 ...
🌟 インターフェースマジック: 😊もっと可愛くてクールな絵文字 / 重要なメールが届いたら通知する / Outlook を閉じる代わりに最小化する ...
???? ワンクリックの驚異: 受信した添付ファイルをすべてに返信する / フィッシングメール対策 / 🕘送信者のタイムゾーンを表示 ...
👩🏼🤝👩🏻 連絡先とカレンダー: 選択したメールから連絡先を一括追加 / 連絡先グループを個別のグループに分割する / 誕生日のリマインダーを削除する ...
ワンクリックでKutools for Outlookを即座にロック解除—永久に無料待たずに今すぐダウンロードして効率を高めましょう!

