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

Home
VBA / Excel / Access / Word
1.Access
2.Application
3.Data Type
4.Data Type Functions
5.Date Functions
6.Excel
7.File Path
8.Forms
9.Language Basics
10.Math Functions
11.Outlook
12.PowerPoint
13.String Functions
14.Windows API
15.Word
16.XML
VBA / Excel / Access / Word » File Path » GetOpenFilename 




Selecting multiple files
 
  Sub GetImportFileName2()
      Dim FileNames As Variant
      Dim Msg As String
      Dim As Integer
      FileNames = Application.GetOpenFilename(MultiSelect:=True)
      If IsArray(FileNamesThen
          Msg = "You selected:" & vbNewLine
          For I = LBound(FileNamesTo 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
1.Application.GetOpenFilename
2.Load excel file
3.Get the selected file name in a file open dialog
4.Use filter in Open file dialog
java2s.com  | Contact Us | Privacy Policy
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.