Excel VBA Macro To Open A File Through Browse Dialog Box

[Safal Shrestha]

I need a macro for the following task.
1. ask for the file name through inputbox
2. open the file if the name is correct otherwise give an error msgbox.
3. the directory can be specified initially in the vba.

Thanks.

[Admin]

Hi

Rather asking for the filename, let the user select the file.

Sub kTest()

    Dim strFile     As String
    
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .Title = "Select the file.."
        .InitialFileName = "D:\"        'adjust the default folder
        .Filters.Clear
        .Filters.Add "Excel Files", "*.xls*"
        If .Show = -1 Then
            strFile = .SelectedItems(1)
        Else
            MsgBox "No file selected", vbInformation, "ExcelFox.com"
            Exit Sub
        End If
        
        Workbooks.Open strFile, 0
        
    End With
            
End Sub

[Safal Shrestha]

It worked perfectly. Thanks admin