Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Error Trapping Still Not Working
In the code below I have extracted all the miscellaneous
lines. When I run the macro, if the text file that I am trying to open (F851.txt) does not exist, the macro fails at the "Workbooks.OpenText...." line. It does not go to the "Errhandler." Any ideas why? ---------------------------- Sub Payables() 'Turn off warnings, auto recalc, etc. Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Application.DisplayAlerts = False ChDir "C:\Downloads" On Error GoTo Errhandler Workbooks.OpenText Filename:="C:\Downloads\F851.txt", Origin:=xlWindows, _ StartRow:=4, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 2), Array(15 _ , 2), Array(25, 2), Array(37, 2), Array(53, 3), Array(65, 1), Array(71, 1), Array(91, 1), _ Array(111, 1)) End_it: 'Turn on warnings, auto recalc, etc. Application.DisplayAlerts = True Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic Exit Sub Errhandler: MsgBox "Error occured" Resume End_it End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Error Trapping from WSH | Excel Discussion (Misc queries) | |||
Error Trapping Still Not Working | Excel Programming | |||
trapping error | Excel Programming | |||
Error Trapping | Excel Programming | |||
error trapping | Excel Programming |