Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

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