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?

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

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


"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?
>
>

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?
>
>

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 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?

On Sep 6, 10:36 am, Vergel Adriano
<VergelAdri...@discussions.microsoft.com> 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