Browse a file in excel vba

VoG said:

Try

Rich (BB code):

Sub browseFile()
Dim desPathName As Variant
    desPathName = Application.GetOpenFilename(FileFilter:="Excel Files (*.xls*), *.xls*", Title:="Please select a file")
    If desPathName = False Then
        MsgBox "Stopping because you did not select a file. Reselect a destination file through the menu"
        Exit Sub
    Else
        Workbooks.Open Filename:=desPathName
        Set des = Workbooks.Open(desPathName, True, False)
        Set desSheet = des.Worksheets(desWorksheetName)
    End If
End Sub

Click to expand...