Presents user with a GetOpenFileName dialog that allows multiple file selection. : Workbook File « Excel « VBA / Excel / Access / Word






  1. VBA / Excel / Access / Word
  2. Excel
  3. Workbook File

Presents user with a GetOpenFileName dialog that allows multiple file selection.

 
Sub main()
   GetExcelFiles ("YourTitle")
End Sub
Function GetExcelFiles(sTitle As String) As Variant
    Dim sFilter As String
    Dim bMultiSelect As Boolean

    sFilter = "Workbooks (*.xls), *.xls"
    bMultiSelect = True

    GetExcelFiles = Application.GetOpenFilename(FileFilter:=sFilter, _
        Title:=sTitle, MultiSelect:=bMultiSelect)
End Function








Related examples in the same category

1.Is selected file open?
2.Open Workbook file (xls file)
3.Get path of current work book
4.Get work book from same directory
5.Save as the active workbook
6.Get next file name
7.Open a text file for workbook
8.Get active workbook name only(without path name)
9.Load excel file
10.tells you how many workbooks are open
11.Save changes automatically, specify this as a parameter of the Close method