VBA ファイル、フォルダの選択

ファイルの選択

Dim file As Variant

file = Application.GetOpenFilename("CSVファイル(*.csv),*.csv")

Application.GetOpenFilename

フォルダの選択

With Application.FileDialog(msoFileDialogFolderPicker)
    If .Show = True Then
        Cells(1,1).Value = .SelectedItems(1)
    End If
End With

Application.FileDialog

フォルダからCSVを抽出する

Dim file As String
Dim i As Long

file = Dir(path & "\\*.csv")
Do While file <> ""
    i = i + 1
    Cells(i, 1) = file
    buf = Dir()
Loop

Dir関数