ExcelVBA 指定したフォルダ内のファイル名やフルパスを取得する方法

以下のようなシーンで利用されます。

1.フォルダ内のファイル一覧をExcelシートに出力。

2.特定の拡張子のファイルを探して処理する。

3.ファイル名を取得して他のシステムやレポートで使用する。

Option Explicit

Sub GetFileNames()
    Dim folderPath As String
    Dim fileName As String
    Dim row As Long
    
    ' フォルダパスを指定
    folderPath = "C:\Users\User\Desktop\sourceFile"
    
    ' 最後がバックスラッシュで終わっていない場合は追加
    If Right(folderPath, 1) <> "\" Then
        folderPath = folderPath & "\"
    End If
    
    ' 初期設定
    fileName = Dir(folderPath) ' 最初のファイル名を取得
    row = 1 ' 出力先の行番号
    
    ' シートに結果を出力
    Do While fileName <> ""
        Cells(row, 1).Value = fileName ' ファイル名
        Cells(row, 2).Value = folderPath & fileName ' フルパス
        row = row + 1
        fileName = Dir ' 次のファイル名を取得
    Loop
    
    MsgBox "ファイル名を取得しました！", vbInformation
End Sub

特定の拡張子（例: .xlsx）のファイルだけを取得する

Option Explicit

Sub GetSpecificFiles()
    Dim folderPath As String
    Dim fileName As String
    Dim row As Long
    
    ' フォルダパスを指定
    folderPath = "C:\Users\User\Desktop\sourceFile"
    
    ' 初期設定
    fileName = Dir(folderPath & "*.xlsx") ' .xlsxファイルのみ取得
    row = 1 ' 出力先の行番号
    
    ' シートに結果を出力
    Do While fileName <> ""
        Cells(row, 1).Value = fileName ' ファイル名
        row = row + 1
        fileName = Dir ' 次のファイル名を取得
    Loop
    
    MsgBox "Excelファイルのみを取得しました！", vbInformation
End Sub

フォルダが存在しない場合にエラーを通知するコード

If Dir(folderPath, vbDirectory) = "" Then
    MsgBox "指定したフォルダが存在しません: " & folderPath, vbExclamation
    Exit Sub
End If

ネットワークドライブを使用する場合、アクセス権や接続状況に注意が必要です。空のフォルダの場合、Dir は空文字列 ("") を返すためループは実行されません。フォルダが存在しない場合のエラー処理を追加するとより堅牢になります。