workbooks.open with file browser

[lezawang]

Hi

I want to improve the code below. I am thinking if it is possible to display file browser for the user to choose file from. Like when you click open in Excel, a file browser will be opened to help users to select a file. Can I do that here? Thank you very much

Sub wbs_open()
    Dim xfile As String
    xfile = InputBox("enter file name with full path")
    Workbooks.Open Filename:=xfile
End Sub

 

[Fluff]

Have a look for GetOpenFileName

 

[Yongle]

or ...

Sub FilePickerMethod()
    Dim xfile As String
    With Application.FileDialog(msoFileDialogFilePicker)
            .InitialFileName = "C:\Folder\SubFolder\"       'Set the initial path like this (optional)
            .AllowMultiSelect = False
            .Filters.Add "Excel Files", "*.xls; *.xlsx; *.xlsm; *.xlsb", 1      'add filters to narrow down file choices (optional)
            .Show
            If .SelectedItems.Count > 0 Then
                xfile = .SelectedItems.Item(1)
            Else
                Exit Sub
            End If
    End With
    Workbooks.Open xfile
End Sub

https://analystcave.com/vba-application-filedialog-select-file/