フォルダを指定して複数ファイルを取得する


  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

このWIKIを編集するにはパスワード入力が必要です

認証パスワード