Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 :-) |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 :-) |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 :-) |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
On error resume next not working | Excel Discussion (Misc queries) | |||
year 2010 not working in IF | Excel Discussion (Misc queries) | |||
On Error Resume Next ? | Excel Programming | |||
On Error Resume Next | Excel Programming | |||
"on error resume next" NOT working... | Excel Programming |