【ExcelVBA】フォルダ内のファイル名一覧を取得する方法

Sub Sample1()

Dim ForlderPath As String
Dim TargetFile As Object
Dim fso As Object
Dim i As Integer

    'シートに書いてあるフォルダパスを変数に設定…⓵
    ForlderPath = ActiveSheet.Range("B2")
    
    'FileSystemObjectのインスタンスを作成…⓶
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    'ファイル名を出力する行数をセット…⓷
    i = 4
        
    'フォルダ内のファイルをループ…⓸
    For Each TargetFile In fso.GetFolder(ForlderPath).Files
    
        'ファイルの拡張子が「.xlsx」の場合…⓹
        If InStr(TargetFile.Name, ".xlsx") > 0 Then
        
            'ファイル名を出力する…⓺
            Cells(i, 1) = TargetFile.Name
            
            '出力する行数をカウントアップ…⓻
            i = i + 1
        
        End If
        
    Next TargetFile
    
        
    '変数の初期化・解放…⓼
    Set fso = Nothing
    Set TargetFile = Nothing

    
End Sub