On Error Resume Next not working (2010)
 

Here's a code snippet that has worked for years under 2003:

strFullName = strPath & subPath & varBookName
Err.Clear
On Error Resume Next
Workbooks.Open FileName:=strFullName, _
UpdateLinks:=0 'do not update
Select Case Err.Number

Now, under 2010 if the file does not exist I get a dialog that displays
the filename as "not found, etc, etc." When I click on OK, the code
continues executing and does what I expect. Is there a setting change
on 2010 or something that I'm missing?

--
Clif McIrvin

(clare reads his mail with moe, nomail feeds the bit bucket :-)

On Error Resume Next not working (2010)
 

I don't use 2010, but I would check how excel is set up to handle
errors:

In the VBA editor goto Tools Options General Error Handling:
Select 'Break on Unhandled Errors'

Regards,
Per

On 7 Nov., 02:06, "Clif McIrvin" wrote:
Here's a code snippet that has worked for years under 2003:

* * strFullName = strPath & subPath & varBookName
* * Err.Clear
* * On Error Resume Next
* * Workbooks.Open FileName:=strFullName, _
* * * * UpdateLinks:=0 * * * * 'do not update
* * Select Case Err.Number

Now, under 2010 if the file does not exist I get a dialog that displays
the filename as "not found, etc, etc." *When I click on OK, the code
continues executing and does what I expect. *Is there a setting change
on 2010 or something that I'm missing?

--
Clif McIrvin

(clare reads his mail with moe, nomail feeds the bit bucket :-)

On Error Resume Next not working (2010)
 

On Nov 6, 8:06*pm, "Clif McIrvin" wrote:
Here's a code snippet that has worked for years under 2003:

* * strFullName = strPath & subPath & varBookName
* * Err.Clear
* * On Error Resume Next
* * Workbooks.Open FileName:=strFullName, _
* * * * UpdateLinks:=0 * * * * 'do not update
* * Select Case Err.Number

Now, under 2010 if the file does not exist I get a dialog that displays
the filename as "not found, etc, etc." *When I click on OK, the code
continues executing and does what I expect. *Is there a setting change
on 2010 or something that I'm missing?

--
Clif McIrvin

(clare reads his mail with moe, nomail feeds the bit bucket :-)

I would check to be sure you have turned off displaying messages to
the user
Application.DisplayAlerts = False

Steve

On Error Resume Next not working (2010)
 

On Nov 7, 1:06*am, "Clif McIrvin" wrote:
Here's a code snippet that has worked for years under 2003:

* * strFullName = strPath & subPath & varBookName
* * Err.Clear
* * On Error Resume Next
* * Workbooks.Open FileName:=strFullName, _
* * * * UpdateLinks:=0 * * * * 'do not update
* * Select Case Err.Number

Now, under 2010 if the file does not exist I get a dialog that displays
the filename as "not found, etc, etc." *When I click on OK, the code
continues executing and does what I expect. *Is there a setting change
on 2010 or something that I'm missing?

--
Clif McIrvin

(clare reads his mail with moe, nomail feeds the bit bucket :-)

Cliff

Why not check if the file exists using Dir rather than using On Error?

If Dir(strFullName)<"" Then
Set wbOpen = Workbooks.Open(FileName:=strFullName,
UpdateLinks:=0)
Else
Msgbox "File not found, check filename and path."
End If

On Error Resume Next not working (2010)
 

"norie" wrote in message
...
On Nov 7, 1:06 am, "Clif McIrvin" wrote:
Here's a code snippet that has worked for years under 2003:

strFullName = strPath & subPath & varBookName
Err.Clear
On Error Resume Next
Workbooks.Open FileName:=strFullName, _
UpdateLinks:=0 'do not update
Select Case Err.Number

Now, under 2010 if the file does not exist I get a dialog that
displays
the filename as "not found, etc, etc." When I click on OK, the code
continues executing and does what I expect. Is there a setting change
on 2010 or something that I'm missing?

--
Clif McIrvin

(clare reads his mail with moe, nomail feeds the bit bucket :-)

Cliff

Why not check if the file exists using Dir rather than using On Error?

If Dir(strFullName)<"" Then
Set wbOpen = Workbooks.Open(FileName:=strFullName,
UpdateLinks:=0)
Else
Msgbox "File not found, check filename and path."
End If


---------

Works like a charm! Thanks for the tip.
I like the concept better than what I was doing, too.

--
Clif McIrvin

(clare reads his mail with moe, nomail feeds the bit bucket :-)