I'm trying to enable this code for file picker to select multiple file and return all of the filename. I've used this code for sometime to return one file. I'm trying to enable multiselect so I can return a list of selected files.
Can someone help me get there?
Public Function modImportExport_OpenFile(strFileExtension As String, Optional bolAllowMultiSelect As Boolean = False)
' the input is used do set the filtering on the dialog box
' Returns Filename/Path OR Canceled
Dim objfd As Object
Dim vrtSelectedItem As Variant
Dim strExtType As String
Set objfd = Application.FileDialog(3)
Select Case strFileExtension
Case "xls", "xlsx"
strExtType = "*.xls,*.xlsx"
Case "txt", "asc", "csv"
strExtType = "*.txt,*.acs,*.csv,*.prn"
strExtType = "*.*"
.Title = "Please Select Your File"
.AllowMultiSelect = bolAllowMultiSelect
.Filters.Add "Files", strExtType, 1
If .show = -1 Then
For Each vrtSelectedItem In .SelectedItems
'Return File Name and Path
modImportExport_OpenFile = vrtSelectedItem '<< Something needs to happen here to put selected files (1 or more) into an array to return
'The user pressed Cancel.
modImportExport_OpenFile = "Canceled"
'Set the object variable to Nothing.
Set objfd = Nothing