【VBA】フォルダ内のエクセル一覧を取得する

今回は、指定のパス配下のエクセル一覧を取得します。
では、さそくサンプルです。

Sub Main()

    Dim thisWs As Worksheet
    Set ThisWs = ThisWorkbook.Worksheets(1)

    Dim path As String
    path = ThisWorkbook.path

    Dim buf As String
    buf = Dir(path & "\", vbDirectory)
    Do While buf <> ""
        If InStr(buf, ".xlsx") <> 0 Then
            Debug.Print(buf)
        End If
        buf = Dir()
    Loop

End Sub

対象のフォルダ配下の拡張子が.xlsxか判定しています。
サンプルではデバック出力するようにしていますが
ここを調整することで色々応用できます。
以上です。