概要：FileDialogがもたらす操作性の革命
Excel VBAでファイル一覧を作成する際、もっとも原始的な方法はDir関数を用いることですが、これは「フォルダパスを直接入力させる」というユーザーにとって不親切な設計になりがちです。実務レベルで求められるのは、Windowsの標準的なファイル選択ダイアログを表示し、ユーザーが直感的にフォルダを指定できるインターフェースです。
そこで活用すべきなのが「FileDialogオブジェクト」です。これはOfficeアプリケーションが提供する強力なダイアログインターフェースであり、単なるフォルダ選択だけでなく、複数ファイルの選択、フィルタリング、初期パスの設定など、高度な制御が可能です。本稿では、FileDialogを使用したプロフェッショナルなファイル一覧作成の技術を徹底解説します。
詳細解説：FileDialogオブジェクトの仕組みと強み
FileDialogには主に「msoFileDialogFilePicker（ファイル選択）」と「msoFileDialogFolderPicker（フォルダ選択）」の2種類があります。ファイル一覧を作成する場合、対象となるフォルダそのものを選択させる「msoFileDialogFolderPicker」を用いるのが一般的です。
このオブジェクトの最大の利点は、FileSystemObject（FSO）と組み合わせることで、フォルダ内のファイル名、パス、更新日時、サイズ、拡張子といったメタデータを網羅的に取得できる点にあります。Dir関数では取得が困難な詳細属性も、FSOのFileオブジェクトを経由することで容易に抽出可能です。
また、FileDialogは「AllowMultiSelect」プロパティを制御することで、単一のフォルダ選択に留まらず、複数のファイルをユーザーに選ばせるといった要件にも柔軟に対応できます。これにより、特定のファイルだけを抽出してリスト化するといった高度なツール作成が可能になります。
サンプルコード：実務で使えるファイル一覧抽出マクロ
以下に、ユーザーが指定したフォルダ内のファイルを全取得し、Excelのシート上にリストアップする汎用性の高いコードを提示します。
Sub CreateFileListWithFileDialog()
Dim fd As FileDialog
Dim targetFolder As String
Dim fso As Object, fld As Object, fil As Object
Dim rowIdx As Long
' フォルダ選択ダイアログの初期化
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
fd.Title = "ファイル一覧を作成するフォルダを選択してください"
If fd.Show = -1 Then
targetFolder = fd.SelectedItems(1)
Else
MsgBox "キャンセルされました。"
Exit Sub
End If
' FSOのセットアップ
Set fso = CreateObject("Scripting.FileSystemObject")
Set fld = fso.GetFolder(targetFolder)
' シートの初期化
Cells.Clear
Range("A1:D1").Value = Array("ファイル名", "パス", "サイズ(KB)", "最終更新日")
rowIdx = 2
' ファイル情報の抽出
Application.ScreenUpdating = False
For Each fil In fld.Files
Cells(rowIdx, 1).Value = fil.Name
Cells(rowIdx, 2).Value = fil.Path
Cells(rowIdx, 3).Value = Round(fil.Size / 1024, 2)
Cells(rowIdx, 4).Value = fil.DateLastModified
rowIdx = rowIdx + 1
Next fil
Columns("A:D").AutoFit
Application.ScreenUpdating = True
MsgBox "一覧作成が完了しました。"
End Sub
実務アドバイス：コードをより堅牢にするためのテクニック
実務でこのプログラムを運用する場合、以下の3点に注意してください。
1. サブフォルダの再帰的探索
上記のコードは指定フォルダ直下のファイルのみを対象としています。深い階層にあるファイルまでリスト化したい場合は、再帰呼び出し（Recursive Function）を実装する必要があります。FSOのSubFoldersプロパティをループ処理で再帰的に辿ることで、階層構造を問わない強力なリスト作成ツールへと進化します。
2. エラーハンドリングの徹底
ネットワークドライブ上のフォルダを選択した場合や、アクセス権限がないフォルダを指定した場合、実行時エラーが発生します。「On Error Resume Next」を適宜活用し、エラー発生時には「アクセス権限がありません」とユーザーにフィードバックする仕組みを組み込むことが、プロのVBAエンジニアとしての作法です。
3. パフォーマンスの最適化
ファイル数が数千件を超える場合、セルに1行ずつ書き込む処理は非常に低速になります。一度配列（Array）にデータを格納し、最後に「Range.Value = 配列」で一括転記する手法を採ることで、処理速度を劇的に向上させることが可能です。
まとめ：ユーザー体験とメンテナンス性を両立させる
VBAで自動化ツールを作る際、もっとも重要なのは「誰が使っても迷わない操作性」です。FileDialogを用いたファイル選択は、OSの標準的な挙動を継承しているため、ユーザーにとって違和感がなく、誤操作のリスクも最小限に抑えられます。
また、今回紹介したFSOとの組み合わせは、可読性とメンテナンス性に優れています。Dir関数を使った古いコードに悩まされている方は、ぜひこのFileDialogベースの設計に移行してください。コードの行数はわずかに増えますが、その分、機能拡張やエラー対応が極めて容易になります。
本稿で解説した技術をベースに、皆さんの業務環境に最適な「ファイル管理エンジン」を構築してください。VBAは単なる自動化ツールではなく、業務プロセスを再定義するための強力な武器になります。このサンプルを第一歩として、さらに高度なファイル管理システムの開発に挑戦していただきたいと願っています。
