Vba Filter Application.GetOpenFilename

[rpaulson]

Hello all,

I use this: fName = Application.GetOpenFilename("Excel Files (*.xlsx), *.xlsx")

something like: fName = Application.GetOpenFilename("Excel Files (Fred*.xlsx), Fred*.xlsx")

any ideas?

-Ross

 

[Domenic]

Try the following...

    Dim fName As String
    
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .ButtonName = "Open"
        .Filters.Clear
        .Filters.Add "Excel Files", "*.xlsx"
        .FilterIndex = 1
        .InitialFileName = "Fred*.xlsx" '<-----
        .Title = "Select File"
        If .Show = 0 Then Exit Sub
        fName = .SelectedItems(1)
    End With
    
    Debug.Print fName

Hope this helps!

 

[rpaulson]

Perfect, thanks

 

[Domenic]

You're very welcome, cheers!