Open workbook selected form dialog

  • Thread starter Thread starter Hennie Neuhoff
  • Start date Start date
H

Hennie Neuhoff

Hi All,
Below is my code to get the workbook selected by the user. For some or other
reason this dummy
can't get the code to open the selected file. I would like to substitute the
msgbox with the code to
open the file. Any advice would be appreciated.
Thanks in advance



Sub GetFileExample()
Dim fNameAndPath As Variant
fNameAndPath = Application.GetOpenFilename _
(FileFilter:="Excel Files (*.XLS), *.XLS", _
Title:="Select File To Be Opened")
If fNameAndPath = False Then _
Exit Sub
MsgBox fNameAndPath

End Sub
 
Hi All,
Below is my code to get the workbook selected by the user. For some or other
reason this dummy      
can't get the code to open the selected file. I would like to substitute the
msgbox with the code to
open the file. Any advice would be appreciated.
Thanks in advance      

Sub GetFileExample()    
Dim fNameAndPath As Variant    
fNameAndPath = Application.GetOpenFilename _    
(FileFilter:="Excel Files (*.XLS), *.XLS", _  
Title:="Select File To Be Opened")
If fNameAndPath = False Then _
Exit Sub
MsgBox fNameAndPath

End Sub
Click to expand...

Replace MsgBox statement with Workbooks.Open (fNameAndPath)
 
Back
Top