Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
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" Case Else strExtType = "*.*" End Select With objfd .Title = "Please Select Your File" .AllowMultiSelect = bolAllowMultiSelect .Filters.Clear .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 Next vrtSelectedItem Else 'The user pressed Cancel. modImportExport_OpenFile = "Canceled" End If End With 'Set the object variable to Nothing. Set objfd = Nothing End Function
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.