View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.programming
theSquirrel theSquirrel is offline
external usenet poster
 
Posts: 27
Default Capturing 'Cancel' on Applicaiton.Dialogs(xlDialogOpen).Show FileP

On Sep 6, 10:36 am, Vergel Adriano
wrote:
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

--
Hope that helps.

Vergel Adriano

"theSquirrel" wrote:
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?


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