【VBAリファレンス】Excel VBAでファイル一覧を自動生成！生成AI活用研究26本目

概要

本記事では、Excel VBAを活用して指定したフォルダ内のファイル一覧を自動で作成する方法を解説します。生成AIの活用研究の一環として、VBAによるファイル操作の基本を学び、作業効率化に繋げます。フォルダ内のファイル名、更新日時、サイズなどをExcelシートに一覧表示させることで、手作業によるファイル管理の負担を大幅に軽減します。

詳細解説：VBAでファイル一覧を作成する仕組み

Excel VBAでファイル一覧を作成する際の核心となるのは、「FileSystemObject」というオブジェクトです。これは、ファイルやフォルダの操作を可能にする強力なツールで、VBAからファイルシステムにアクセスするためのインターフェースを提供します。

FileSystemObjectの準備

まず、VBAエディタで「Microsoft Scripting Runtime」への参照設定を行います。

VBAエディタを開きます (Alt + F11)。
メニューバーから「ツール」→「参照設定」を選択します。
一覧の中から「Microsoft Scripting Runtime」を探し、チェックを入れます。
「OK」をクリックします。

これにより、FileSystemObjectとそのメソッド、プロパティをVBAコード内で利用できるようになります。

フォルダとファイルの取得

FileSystemObjectのインスタンスを作成した後、「GetFolder」メソッドを使って指定したフォルダの情報を取得します。このメソッドはFolderオブジェクトを返します。

Folderオブジェクトには、そのフォルダに含まれるファイルやサブフォルダに関する情報が含まれています。「Files」プロパティは、そのフォルダ直下にあるすべてのFileオブジェクトのコレクションを返します。このコレクションをループ処理することで、個々のファイルにアクセスできます。

ファイル情報の取得とExcelへの出力

Fileオブジェクトには、ファイル名（Name）、最終更新日時（DateLastModified）、サイズ（Size）などのプロパティがあります。これらのプロパティを順番に取得し、Excelシートの各セルに書き込んでいきます。

Excelシートへの書き込みは、Cellsプロパティを使用します。例えば、1行目の1列目にヘッダー（ファイル名、更新日時、サイズなど）を書き込み、2行目以降にファイル情報を順次書き込んでいくのが一般的です。ループ処理の中で、行番号をインクリメントしながらデータを格納していきます。

エラーハンドリング

指定したフォルダが存在しない場合や、アクセス権がない場合など、予期せぬエラーが発生する可能性があります。これを防ぐために、On Error Resume NextステートメントやOn Error GoToステートメントを用いたエラーハンドリングを実装することが重要です。例えば、フォルダが存在しない場合にユーザーに通知したり、処理を中断したりするなどの対応が考えられます。

サンプルコード

以下に、指定したフォルダのファイル一覧をExcelシートに出力するVBAコードの例を示します。


Sub CreateFileList()

    Dim fso As Object
    Dim folder As Object
    Dim file As Object
    Dim targetFolder As String
    Dim currentRow As Long
    Dim ws As Worksheet

    ' --- 設定 ---
    ' ファイル一覧を作成したいフォルダのパスを指定してください
    targetFolder = "C:\" ' 例: Cドライブ直下
    ' ----------------

    ' ワークシートを設定 (アクティブシートを使用)
    Set ws = ThisWorkbook.ActiveSheet

    ' FileSystemObjectを作成
    On Error Resume Next
    Set fso = CreateObject("Scripting.FileSystemObject")
    If Err.Number <> 0 Then
        MsgBox "FileSystemObjectの作成に失敗しました。", vbCritical
        Exit Sub
    End If
    On Error GoTo 0

    ' 指定されたフォルダが存在するか確認
    If Not fso.FolderExists(targetFolder) Then
        MsgBox "指定されたフォルダが見つかりません: " & targetFolder, vbExclamation
        Set fso = Nothing
        Exit Sub
    End If

    ' フォルダオブジェクトを取得
    Set folder = fso.GetFolder(targetFolder)

    ' --- Excelシートの初期化 ---
    ws.Cells.ClearContents ' 既存の内容をクリア
    ws.Cells(1, 1).Value = "ファイル名"
    ws.Cells(1, 2).Value = "更新日時"
    ws.Cells(1, 3).Value = "サイズ (バイト)"
    ws.Range("A1:C1").Font.Bold = True ' ヘッダーを太字に
    currentRow = 2 ' データは2行目から開始
    ' -------------------------

    ' フォルダ内のファイルをループ処理
    On Error Resume Next ' ファイルアクセス時のエラーを無視
    For Each file In folder.Files
        ' ファイル情報をExcelシートに出力
        ws.Cells(currentRow, 1).Value = file.Name
        ws.Cells(currentRow, 2).Value = file.DateLastModified
        ws.Cells(currentRow, 3).Value = file.Size
        currentRow = currentRow + 1
    Next file
    On Error GoTo 0

    ' --- 最終処理 ---
    ' 列幅を自動調整
    ws.Columns("A:C").AutoFit

    ' メモリ解放
    Set file = Nothing
    Set folder = Nothing
    Set fso = Nothing
    Set ws = Nothing

    MsgBox "ファイル一覧の作成が完了しました。", vbInformation

End Sub

実務アドバイス

このVBAコードは、ファイル一覧作成の基本となりますが、実務で活用する際にはさらにいくつかの工夫が考えられます。

サブフォルダの再帰処理: 現在のコードは指定したフォルダ直下のファイルのみを対象としています。サブフォルダ内のファイルもまとめて一覧化したい場合は、再帰処理（関数やDo-Loop文を用いて、自分自身を呼び出す処理）を実装する必要があります。
ファイルフィルタリング: 特定の拡張子（例: .xlsx, .docx）のファイルのみを抽出したい場合は、ファイル名に対してワイルドカード（*）やInStr関数などを用いた条件分岐を追加します。
出力形式のカスタマイズ: 更新日時を特定のフォーマット（例: “yyyy/mm/dd hh:mm”）で表示したい場合は、Format関数を使用します。ファイルサイズをKBやMB単位で表示したい場合は、数値を1024や1024*1024で割る処理を追加します。
フォルダ選択ダイアログ: コード内に直接フォルダパスを記述するのではなく、ユーザーがフォルダを選択できるダイアログ（Application.FileDialog(msoFileDialogFolderPicker)）を表示させると、より汎用性の高いツールになります。
重複ファイル検出: 同じファイル名で異なるフォルダに存在するファイルを検出したい場合は、ファイル名だけでなく、フォルダパスも含めて比較する処理を検討します。
CSVファイルへの出力: Excelファイルではなく、CSVファイルとして出力したい場合は、OpenステートメントとPrint #ステートメントを用いてファイルに追記していく形になります。
パフォーマンスの考慮: 数万件以上のファイルを処理する場合、VBAの実行速度が遅くなることがあります。その際は、ScreenUpdatingやEnableEventsをFalseに設定することで、表示更新やイベント発生を一時的に無効にし、処理速度を向上させることができます。

これらのアドバイスを参考に、ご自身の業務に合わせてコードをカスタマイズしてみてください。

まとめ

本記事では、Excel VBAとFileSystemObjectを活用して、指定したフォルダのファイル一覧を自動作成する方法を解説しました。FileSystemObjectを使えば、ファイルやフォルダの操作が非常に容易になります。今回ご紹介したコードは、ファイル管理の効率化に役立つだけでなく、VBAによるファイル操作の基礎を学ぶための絶好の機会です。

生成AIの時代だからこそ、このような基本的な自動化スキルは、AIをより効果的に活用するための土台となります。AIに指示を出す際にも、どのようなファイル操作が可能か、どのようなデータが必要かといった、VBAで培った知識が役立つ場面は多いでしょう。ぜひ、このコードをベースに、ご自身の業務に合わせたカスタマイズを試してみてください。