Selecting multiple files : GetOpenFilename « File Path « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. File Path
3. GetOpenFilename

Selecting multiple files

 
  Sub GetImportFileName2()
      Dim FileNames As Variant
      Dim Msg As String
      Dim I As Integer
      FileNames = Application.GetOpenFilename(MultiSelect:=True)
      If IsArray(FileNames) Then
          Msg = "You selected:" & vbNewLine
          For I = LBound(FileNames) To UBound(FileNames)
              Msg = Msg & FileNames(i) & vbNewLine
          Next i
          MsgBox Msg
      Else
          MsgBox "No files were selected."
      End If
  End Sub

 

Related examples in the same category