Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Error Handling works only once
I have these codes below. The Error Handling works only for the first file in
the folder but not the other files. Does anyone know why? All the files in the folder do not have Sheet ABC. Thanks in advance for your help. For Each file In Folder.Files If file.Type = "Microsoft Excel Worksheet" Then Workbooks.Open FileName:=file.Path, UpdateLinks:=xlUpdateLinksNever On Error GoTo ErrHandler Sheets("ABC").Select ErrHandler: ActiveWorkbook.Close SaveChanges:=True End If Next file |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Error Handling works only once
Try handling error like this. If an error occurs when the select command is
executed it will close tthe workbook, otherwise it will go to On Error statement and return to normal error handling. For Each file In Folder.Files If file.Type = "Microsoft Excel Worksheet" Then Workbooks.Open FileName:=file.Path, UpdateLinks:=xlUpdateLinksNever On Error Resume Next Sheets("ABC").Select ActiveWorkbook.Close SaveChanges:=True On Error GoTo 0 End If Next file "linglc" wrote: I have these codes below. The Error Handling works only for the first file in the folder but not the other files. Does anyone know why? All the files in the folder do not have Sheet ABC. Thanks in advance for your help. For Each file In Folder.Files If file.Type = "Microsoft Excel Worksheet" Then Workbooks.Open FileName:=file.Path, UpdateLinks:=xlUpdateLinksNever On Error GoTo ErrHandler Sheets("ABC").Select ErrHandler: ActiveWorkbook.Close SaveChanges:=True End If Next file |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Handling #NUM! error | Excel Worksheet Functions | |||
Error handling in macro | Excel Discussion (Misc queries) | |||
Error handling in a search | Excel Discussion (Misc queries) | |||
Error handling in this code | Excel Discussion (Misc queries) | |||
Error Handling for "my" menu bar | Excel Discussion (Misc queries) |