Capturing 'Cancel' on Applicaiton.Dialogs(xlDialogOpen).Show FilePathAndName

[theSquirrel]

Hello there,

I have read many instances of how to use the Open dialog on many
different sites and haven't found a way to capture the 'cancel' button
when there is a file already selected.

Here is the code that I am using:
FilePathAndName= Range("BY35").Value
Application.Dialogs(xlDialogOpen).Show FilePathAndName

I know that there is another way to get the open dialog box using the
following code:
FileName = Application.GetOpenFilename

Even this has problems handling the 'cancel' button when a file was
selected.

Can anyone help?

 

[p45cal]

executing this line:
Result=Application.Dialogs(xlDialogOpen).Show

returns True if a file has been opened, and FALSE if the user presses Cancel.

 

[Vergel Adriano]

Sub test()

Filename = Application.GetOpenFilename
If Filename = False Then
MsgBox "User Cancelled!"
End If

'or
If Application.Dialogs(xlDialogOpen).Show("Z:\TEMP\*.xls") = False Then
MsgBox "User Cancelled!"
End If

End Sub

 

[JW]

This is something like what I have used in the past and have never had
any problems, whether a file is selected or not.
s = Application.GetOpenFilename
If s = False Or s = "" Then Exit Sub
MsgBox s

 

[theSquirrel]

Sub test()

Filename = Application.GetOpenFilename
If Filename = False Then
MsgBox "User Cancelled!"
End If

'or
If Application.Dialogs(xlDialogOpen).Show("Z:\TEMP\*.xls") = False Then
MsgBox "User Cancelled!"
End If

End Sub

Vergel...

This is brilliant! it is exactly what I was looking for!!

If Application.Dialogs(xlDialogOpen).Show("Z:\TEMP\*.xls") = False
Then
MsgBox "User Cancelled!"
End If