VBA Macro to Ask User to Browse for Excel File to Open

[ekfasy]

Hello,

I'm trying to write vba code that will ask the user to browse for a certain excel spreadsheet on their computer, then open that file. Is this possible?

I currently have it set up to ask the user to input the file name to open it, but that requires the user to make no errors in their typing...which is not reliable.

Any suggestions would be much appreciated.

Thanks in advance!

 

[Fishboy]

Application.GetOpenFilename retutns an array only if MultiSelect argument is set to True.

The type mismatch in this case can be avoided by replacing False with "False".

If TargetFile = "False" Then

So basically this?

Sub OpenFileDialog()
' Defines variables
Dim TargetFile As String


' Open dialogue box to browse for file
TargetFile = Application.GetOpenFilename _
(Title:="Please choose a file to open", _
FileFilter:="Excel Files *.xls* (*.xls*),")


' If no file is selected then...
If TargetFile = "False" Then
    ' Display message box with an error
    MsgBox "No file selected.", vbExclamation, "Sorry!"
    ' Exit the macro
    Exit Sub
' Else if a valid file is selected then...
Else
    ' Open the selected workbook
    Workbooks.Open FileName:=TargetFile
End If


End Sub

 

[Norie]

Fishboy

Yes, though declaring TargetFile as Variant would also work.

 

[Fishboy]

Thanks for the clarification Norie

 

[jkicker]

-- deleted --