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

Error Trapping Still Not Working
 

It works for me in xl2000 Sr-1. Have you tried to run this
stripped-down version that you posted?

Alan Beban

Ken wrote:

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

Error Trapping Still Not Working
 

Hi
one idea (as this works for me): In the VBA editor goto 'Tools -
Options - General' and check the setting for 'error interruptions'.
should be the last of the three options

--
Regards
Frank Kabel
Frankfurt, Germany


Ken wrote:
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

Error Trapping Still Not Working
 

My bad, sorry.

I had the error trapping option set to "Break on All
Errors."


-----Original Message-----
It works for me in xl2000 Sr-1. Have you tried to run
this
stripped-down version that you posted?

Alan Beban

Ken wrote:

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

.

Error Trapping Still Not Working
 

I found that out soon after I posted this second plea for
help.

Sorry to take up your time on this one.

Thanks for your patience.

-----Original Message-----
Hi
one idea (as this works for me): In the VBA editor
goto 'Tools -
Options - General' and check the setting for 'error
interruptions'.
should be the last of the three options

--
Regards
Frank Kabel
Frankfurt, Germany


Ken wrote:
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

.

Error Trapping Still Not Working
 

Hi
no problem :-)
Good it's working now for you.

--
Regards
Frank Kabel
Frankfurt, Germany


Ken wrote:
I found that out soon after I posted this second plea for
help.

Sorry to take up your time on this one.

Thanks for your patience.

-----Original Message-----
Hi
one idea (as this works for me): In the VBA editor
goto 'Tools -
Options - General' and check the setting for 'error interruptions'.
should be the last of the three options

--
Regards
Frank Kabel
Frankfurt, Germany


Ken wrote:
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

.