Opening File in VBA via User Prompts

[GeneralShamu]

I have written code that will open an XLS file in a specific directory with a specific name...do it's thing and then close it.

Now it seems it'll be easier to just have the user decide since the file name will change based on the last updated date.

Any ideas?

 

[VoG]

Try like this

Sub OpenFile()
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

 

[GeneralShamu]

Try like this

Sub OpenFile()
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

How can I open it this way w/ "True" for UpdateLinks and ReadOnly?

"Workbooks.Open Filename:=fName, True, True" is throwing a compilation error.

 

[VoG]

Try

Sub OpenFile()
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, UpdateLinks:=True, ReadOnly:=True
End Sub

 

[GeneralShamu]

Try

Sub OpenFile()
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, UpdateLinks:=True, ReadOnly:=True
End Sub

It still asked me to update links...

When I do

Workbooks(Filename).Close
and then
Workbooks(fName).Close

neither work for closing the workbook.

The first one did when I outright defined a directory and filename.

 

[VoG]

Try like this

Sub OpenFile()
Dim fName As Variant, wb As Workbook
fName = Application.GetOpenFilename(FileFilter:="Excel Files (*.XLS), *.XLS", Title:="Select File To Be Opened")
If fName = False Then Exit Sub
Set wb = Workbooks.Open(Filename:=fName, UpdateLinks:=True, ReadOnly:=True)
'
'more code
'
wb.Close False
End Sub

 

[GeneralShamu]

Try like this

Sub OpenFile()
Dim fName As Variant, wb As Workbook
fName = Application.GetOpenFilename(FileFilter:="Excel Files (*.XLS), *.XLS", Title:="Select File To Be Opened")
If fName = False Then Exit Sub
Set wb = Workbooks.Open(Filename:=fName, UpdateLinks:=True, ReadOnly:=True)
'
'more code
'
wb.Close False
End Sub

Thank you; still getting the message that one or more links cannot be updated.

Do you think putting this before the 'Set' line would alleviate this in all instances?

Application.DisplayAlerts = False

 

[VoG]

Well, try it