Canceling a read file function
 

I have a macro where the user is required to select a file to open. This
is done via the Windows Open File dialog box. If they elect to "cancel"
and not open the file, I get an error. I know there must be some coding
I can put into my macro to trap this and just exit the macro if this
happens.

Thanks
Mike


--
mwc0914
------------------------------------------------------------------------
mwc0914's Profile: http://www.excelforum.com/member.php...o&userid=24130
View this thread: http://www.excelforum.com/showthread...hreadid=552286

Canceling a read file function
 

On Error GoTo Cancel

Canceling a read file function
 

Sorry I forgot to paste the line:

CommonDialog1.CancelError = True

befo

On Error GoTo Cancel

"mwc0914" wrote:


I have a macro where the user is required to select a file to open. This
is done via the Windows Open File dialog box. If they elect to "cancel"
and not open the file, I get an error. I know there must be some coding
I can put into my macro to trap this and just exit the macro if this
happens.

Thanks
Mike


--
mwc0914
------------------------------------------------------------------------
mwc0914's Profile: http://www.excelforum.com/member.php...o&userid=24130
View this thread: http://www.excelforum.com/showthread...hreadid=552286

Canceling a read file function
 

hi Mike

Use GetOpenFilename

Sub test()
Dim FName As Variant
Dim wb As Workbook
Dim MyPath As String
Dim SaveDriveDir As String

SaveDriveDir = CurDir

MyPath = ThisWorkbook.Path
ChDrive MyPath
ChDir MyPath

FName = Application.GetOpenFilename(filefilter:="Excel Files (*.xls), *.xls")
If FName < False Then
Set wb = Workbooks.Open(FName)
MsgBox "your code"
wb.Close
End If

ChDrive SaveDriveDir
ChDir SaveDriveDir

End Sub



--
Regards Ron De Bruin
http://www.rondebruin.nl



"mwc0914" wrote in message
...

I have a macro where the user is required to select a file to open. This
is done via the Windows Open File dialog box. If they elect to "cancel"
and not open the file, I get an error. I know there must be some coding
I can put into my macro to trap this and just exit the macro if this
happens.

Thanks
Mike


--
mwc0914
------------------------------------------------------------------------
mwc0914's Profile: http://www.excelforum.com/member.php...o&userid=24130
View this thread: http://www.excelforum.com/showthread...hreadid=552286

Canceling a read file function
 

Tired it but am getting False.xls not defined error. My code is...

Canceling a read file function
 

Application.GetOpenFilename, nice! I didn't know about that function. I was
surprised I didn't need to use quotes he

If FName < "False" Then


"Ron de Bruin" wrote:

hi Mike

Use GetOpenFilename

Sub test()
Dim FName As Variant
Dim wb As Workbook
Dim MyPath As String
Dim SaveDriveDir As String

SaveDriveDir = CurDir

MyPath = ThisWorkbook.Path
ChDrive MyPath
ChDir MyPath

FName = Application.GetOpenFilename(filefilter:="Excel Files (*.xls), *.xls")
If FName < False Then
Set wb = Workbooks.Open(FName)
MsgBox "your code"
wb.Close
End If

ChDrive SaveDriveDir
ChDir SaveDriveDir

End Sub



--
Regards Ron De Bruin
http://www.rondebruin.nl



"mwc0914" wrote in message
...

I have a macro where the user is required to select a file to open. This
is done via the Windows Open File dialog box. If they elect to "cancel"
and not open the file, I get an error. I know there must be some coding
I can put into my macro to trap this and just exit the macro if this
happens.

Thanks
Mike


--
mwc0914
------------------------------------------------------------------------
mwc0914's Profile: http://www.excelforum.com/member.php...o&userid=24130
View this thread: http://www.excelforum.com/showthread...hreadid=552286

Canceling a read file function
 

Not use "False"

You get problems when you run the code on a Dutch machine or other language

See Stephen's site
http://www.oaltd.co.uk/ExcelProgRef/Default.htm

Click on "International Issues"


--
Regards Ron De Bruin
http://www.rondebruin.nl



"Charlie" wrote in message ...
Application.GetOpenFilename, nice! I didn't know about that function. I was
surprised I didn't need to use quotes he

If FName < "False" Then


"Ron de Bruin" wrote:

hi Mike

Use GetOpenFilename

Sub test()
Dim FName As Variant
Dim wb As Workbook
Dim MyPath As String
Dim SaveDriveDir As String

SaveDriveDir = CurDir

MyPath = ThisWorkbook.Path
ChDrive MyPath
ChDir MyPath

FName = Application.GetOpenFilename(filefilter:="Excel Files (*.xls), *.xls")
If FName < False Then
Set wb = Workbooks.Open(FName)
MsgBox "your code"
wb.Close
End If

ChDrive SaveDriveDir
ChDir SaveDriveDir

End Sub



--
Regards Ron De Bruin
http://www.rondebruin.nl



"mwc0914" wrote in message
...

I have a macro where the user is required to select a file to open. This
is done via the Windows Open File dialog box. If they elect to "cancel"
and not open the file, I get an error. I know there must be some coding
I can put into my macro to trap this and just exit the macro if this
happens.

Thanks
Mike


--
mwc0914
------------------------------------------------------------------------
mwc0914's Profile: http://www.excelforum.com/member.php...o&userid=24130
View this thread: http://www.excelforum.com/showthread...hreadid=552286

Canceling a read file function
 

I got it working with the following code...