フォルダを指定して複数ファイルを取得する
Dim fso As FileSystemObject Set fso = New FileSystemObject Dim fl As Folder Set fl = fso.GetFolder(ThisWorkbook.Path) Dim f As File For Each f In fl.Files If f.Name Like "*" Then MsgBox (f.Name) End If Next Set fso = Nothing
- 最終更新:2019-11-12 17:50:38