GetOpenFile window

Paulandreaoc · Jun 10th 2020

Hi guys, I have this line code to let an user choose and open multiples files on excel, but if the user don't choose anything or close the window the code give me an error en el next line to that one, someone know how can I do to delete that error?

Thank you in advance

Code

File_Name = Application.GetOpenFilename("Excel Files (*.xl*),*.xl*", , "Select Excel Files To Consolidate", , True)

jolivanes · Jun 11th 2020

A Gentleman that goes by ZVI suggested this: (Change as required)

Code

Sub testOpenFile()
Dim varDave
varDave = Application.GetOpenFilename("Excel Files (*.xls*), *.xls*")


If varDave = False Then
MsgBox "No file selected. Cannot continue."
Exit Sub
End If


On Error GoTo exit_
Application.ScreenUpdating = False


With Workbooks.Open(varDave)


'and here the rest of the code
exit_:
  
  Application.ScreenUpdating = True

Display More

GetOpenFile window

Participate now!

Share