VBA to open an arbitrary file

[ericevans]

I'm trying to write VBA code to open a file that has to be selected just as if you were opening a file using the ribbon in excel, after the file is opened, the code will be taking information and writing that info to a word document in a report format.

I tried using the command WorkBooks.Open but this seems to work only if you know the exact name and path of the file you are trying to open. I'm trying to set this program up such that it'll be user friendly to other people so they won't have to change the file name everytime or do anything beyond pushing a button and selecting a file, which then generates a report.

 

[VoG]

Try like this

Sub GetFile()
Dim fName As Variant
fName = Application.GetOpenFilename(FileFilter:="Excel Files (*.XLS), *.XLS", Title:="Select File To Be Opened")
If fName = False Then Exit Sub
Workbooks.Open Filename:=fName
End Sub

 

[ericevans]

PERFECT !! Thanks