How to Browse for a file from within a userform

**j_Southern** · 01-27-2015, 06:10 PM

This is a copy of a thread started in the wrong (Formulas ) section of the forum. I hope I am not breaking forum rules by trying to correct this.

I have the following piece of code to pick up a known file name and open it.

Sub FindFile()
'
' Macro5 Macro
'

'
    ChDir "U:\EVERYBODY!\Windmill Printed Jobs\ABBSUD"
    Workbooks.Open Filename:= _
        "U:\EVERYBODY!\Windmill Printed Jobs\ABBSUD\ABBSUD 60 X 91 TRIAL.xls"
End Sub

This was derived directly from a macro generated from browsing my network.
What I really want to do though is to enable my user to find the file using a browsing routine direct.
I have not been able to find any advice about this and am hoping that someone here can help.
John

**JieJenn** · 01-27-2015, 06:19 PM

Maybe something like this might work

Sub GetFolderName()
Dim FilePath As String
    With Application.FileDialog(msoFileDialogFilePicker)
        .InitialFileName = Application.DefaultFilePath & "\"
        .Title = "Select the Excel File"
        .AllowMultiSelect = False
        .Show
            If .SelectedItems.Count = 0 Then
                'Do Nothing
                Exit Sub
            Else
                FilePath = .SelectedItems(1)
            End If
    End With
    
    Workbooks.Open Filename:=FilePath
End Sub