【マクロ実践編４】フォルダ内のファイルを書きだす

【マクロ実践編３】の考え方

指定フォルダに入っているファイルをA列に全て書込む

Dim cnt As Long
Dim fs As New Scripting.FileSystemObject
Dim basefolder As Scripting.Folder
Dim tarPath As String
　tarPath = ThisWorkbook.Path
Set basefolder = fs.GetFolder(tarPath)
Dim mysubfile As File

cnt = 2
For Each mysubfile In basefolder.Files
　Range("A" & cnt) = mysubfile.Name
　cnt = cnt + 1
Next