GetOpenFileName show parth of name

[Hermanie]

Hi all,

I'm using application.getopenfilename to select multiple files from a directory. However, the directory holds 1000+ files and I only need the ones with the string "valuations" in it. So for example I need the files 20180108-Valuations, 20180518-Valuations etcetera. To make life easier I was hoping that I can define this "*valuations" part via the application.getopenfilename line.

Current line: Application.GetOpenFilename("Excel workbooks, *.xls", MultiSelect:=True)

Is there a way to have this added to the line?

Thanks in advance excel warriors!

Frank

 

[John_w]

Not possible with Application.GetOpenFilename, but can be done with Application.FileDialog(msoFileDialogOpen).

Public Sub Select_Files()

    Dim i As Long
   
    With Application.FileDialog(msoFileDialogOpen)
        .Title = "Select files"
        .InitialFileName = "C:\folder\path\*valuations.xls"
        .AllowMultiSelect = True
        .Filters.Clear        
        If .Show Then
            'Display selected files
            For i = 1 To .SelectedItems.Count
                MsgBox .SelectedItems(i)
            Next
        Else
            MsgBox "Cancelled"
        End If        
    End With
        
End Sub