VBA ファイル名を一括取得

ファイル名を一括取得

Sub test()
    ' ファイル一覧を取得

    Dim myStr As String
    Dim i As Integer

    i = 2 　’セルA2に代入したいため、初期値2にする
    myStr = Dir("D:\test\")
    Do While myStr <> ""


        Cells(i, 1) = myStr
        myStr = Dir ’ 次のファイル名を取得
        i = i + 1
    Loop

End Sub

実行結果

拡張子”xlsx"ファイルのみ取得

Sub test2()
   ’ 拡張子”xlsx"ファイル一覧を取得

    Dim myStr As String
    Dim i As Integer

    i = 2　　’セルB2に代入したいため、初期値2にする

    myStr = Dir("D:\test\*.xlsx")
    Do While myStr <> ""

        Cells(i, 2) = myStr
        myStr = Dir  ’ 次のファイル名を取得
        i = i + 1
    Loop

End Sub

実行結果

Dir("D:\test\*.xlsx")のかっこなかに、"D:\test\*.CSV"に変更すれば、フォルダ内のすべてCSVファイル名を取得可能です。また、実務では、フォルダパスを格納するセルを指定しておき、必要に応じて、好きなフォルダ内のファイル名を取得できます。

Sub test3()
’ファイル一覧を取得

    Dim myPath As String
    Dim myStr As String
    Dim i As Integer

’ フォルダパス格納セルをA2に指定

    myPath = Cells(2, 1).Value & "\"
    i = 4
    myStr = Dir(myPath)
    Do While myStr <> ""
        Cells(i, 1) = myStr
        myStr = Dir ’ 次のファイル名を取得
        i = i + 1
    Loop

End Sub

実行結果

― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る