Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Problem with error trapping
I am writing a data compiling program that when run updates a master sheet. I have files that have "_COMP" added to the end of the file name if they have been updated. I am trying to open every file as if it has the _COMP, but most do not, so an error is generated. I catch the error no problem the first round, but on the next pass in a for loop, it displays the error (from trying to open a file that doesnt exist) rather than catching it. I have tried the error.clr call but still no help. My code looks like this more or less: For Each wsSheet In Worksheets On Error GoTo notCOMP Set wBook = Workbooks(wsSheet.name & "_COMP.xls") If wBook Is Nothing Then 'Wkbk is NOT open 'Opens Workbooks.Open Filename:="G:\ROHS\" & name & "\" & wsSheet.name & "_COMP.xls" On Error GoTo notCOMP End If ........ <code ........ notCOMP: <code Err.Clear Next wsSheet Any ideas on why I cant clear out the error? -- McManCSU ------------------------------------------------------------------------ McManCSU's Profile: http://www.excelforum.com/member.php...o&userid=24379 View this thread: http://www.excelforum.com/showthread...hreadid=389120 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Problem with error trapping
You need a resume statement in your error handler. Until a resume statement
is executed, you are still in error handler mode and an error in the error handler causes excel to halt. In the module, type Resume highlight it and hit F1. This will explain it to you. -- Regards, Tom Ogilvy "McManCSU" wrote in message ... I am writing a data compiling program that when run updates a master sheet. I have files that have "_COMP" added to the end of the file name if they have been updated. I am trying to open every file as if it has the _COMP, but most do not, so an error is generated. I catch the error no problem the first round, but on the next pass in a for loop, it displays the error (from trying to open a file that doesnt exist) rather than catching it. I have tried the error.clr call but still no help. My code looks like this more or less: For Each wsSheet In Worksheets On Error GoTo notCOMP Set wBook = Workbooks(wsSheet.name & "_COMP.xls") If wBook Is Nothing Then 'Wkbk is NOT open 'Opens Workbooks.Open Filename:="G:\ROHS\" & name & "\" & wsSheet.name & "_COMP.xls" On Error GoTo notCOMP End If ....... <code ....... notCOMP: <code Err.Clear Next wsSheet Any ideas on why I cant clear out the error? -- McManCSU ------------------------------------------------------------------------ McManCSU's Profile: http://www.excelforum.com/member.php...o&userid=24379 View this thread: http://www.excelforum.com/showthread...hreadid=389120 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Error Trapping | Excel Discussion (Misc queries) | |||
Error Trapping from WSH | Excel Discussion (Misc queries) | |||
error trapping | Excel Programming | |||
Error trapping | Excel Programming | |||
Problem trapping an error | Excel Programming |