How to use VBA to open Workbook in Excel?

There are few VBA codes which are commonly used by every developer. One of them is giving an option to user to browse a file. Below is a sample code where I have given a browse button (shape) in an Excel sheet. User can click on this button/shape and select an Excel file. The browsed file path is then displayed in cell E2:

Steps to Open a VBA Workbook in Excel

Start the code by using the “Workbooks” object
Type a dot (.) after that and select the Open method from the list
Specify the file path in the first argument and make sure to enclose it in double quotation marks
In the end, run the code to open the workbook

Sub open_file() 
Workbooks.Open "C:\Users\Dell\Desktop\myFile.xlsx" 
End Sub

VBA Open File DialogBox – Excel Macros Example Code

VBA Code to browse file using File Dialog

Public Sub BrowseAFile()
    Dim objFileDialog As Object
    Dim objSelectedFile As Variant
    'Browse the file
    Set objFileDialog = Application.FileDialog(3)
    With objFileDialog
        .ButtonName = "Select"
        .AllowMultiSelect = False
        .Filters.Clear 'It is important to clear old filters before adding new one
        .Filters.Add "Excel File", "*.xls;*.xlsx;*.xlsm", 1   'You may add more filters and give them a sequence
        .Title = "Select Input file"
        .Show
        For Each objSelectedFile In .SelectedItems
            Range("E2").Value = objSelectedFile 'You may change the destination as per your requirement
        Next
    End With
End Sub

Below is the description of the available options in the code to customize the code for your requirement

ButtonName: Name of the select button, I have used ‘Select’ in the code
AllowMultiSelect: To allow user to select one or multiple files, I have allowed only one input file in the code
Filters: To show only specific type of files to user for selection (Example: .Filters.Add “Word File”, “*.doc;*.docx”, 1 to select a word file)

It is worth to mention that if you want to allow user to select multiple files then you need to make few changes in the code else it will overwrite the path mentioned in cell E2 instead of creating a list