error handeling

[SQUIDD]

Hello

i am trying to do call a macro if an error occours. Basically, the error is literally when the text file does not exist on a querytable, so when the .txt file does not exist i get an error, so i tried the below, but it does not bypass the error. it still displays the error message thet causes my long loop code to stop.

Sub LOAD_DAY()
On Error GoTo 0
    With Range("'day'!A1").QueryTable
        .Connection = "TEXT;C:\THERE OFF\DAYS\" & Range("'CHARTS'!U2").Text & ".txt"
        .TextFileColumnDataTypes = Array(1, 4, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2)
        .Refresh BackgroundQuery:=False
    End With
    Exit Sub
0:  Call RUN_APP
End Sub

anyone know what i can do.

thanks

dave

 

[Fluff]

try

On Error Goto Xit
.
.
Xit:
Call RUN_APP

On Error goto 0 simply sets the error handler to the default

 

[SQUIDD]

hi fluff

ok thanks for that, will give it a try, i have also been working on a workaround to check if the file exists.

If Dir("C:\THERE OFF\DAYS\" & Range("'CHARTS'!U2").Text & ".txt") = "" Then MsgBox ("ISSUE"): Call RUN_APP

will let you know how i get on

thanks

dave

 

[SQUIDD]

yep, thanks fluff

it works just fine, many thanks.
my workaround also worked, but i think the error handler will be faster.

thanks again

dave

 

[Fluff]

Glad to help & thanks for the feedback