Error Trapping Web Queries in VBA

[Terry_Orange]

Hi folks,

I have a web query set up in Excel (below). It works fine unless the webpage does not exist. Any ideas anyone how I can go about error trapping this ?

THANK YOU
TO.

Sub ImportWebpage(ByVal PathName As String, ByVal PathNo As Integer)

    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.the_website_I'm_accessing" & PathName & "file.asp", _
        Destination:=Range("A1"))
        .Name = PathName & "file"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .Refresh BackgroundQuery:=False
    End With

End Sub

 

[Juan Pablo González]

That code should crash on the '.Refresh' line. Just put a

On Error Resume Next somewhere before that line...

 

[Terry_Orange]

You're correct it does - at that line.

Thanks. Now I can go web-trawling for information ! I'm always surprised at how much more excel can actually do !

THANK YOU AGAIN.
TO

 

[MedievalMan]

I know this is an old post, but I searched this forum and I'm having a similar problem.

When my webquery reports the same error (though I think it's a message of some sort, not an error, because if I click okay, the macro/ontime timer resumes.)

However, I can't seem to trap the error at all, since it doesn't seem to be occurring on any particular line or procedure.

 

[MedievalMan]

I did some experimenting

The error can only be trapped this way if backgroundrefresh=false

if backgroundrefresh=true, putting on on error in the procedure does not help.

Any ideas how to get around this? I'd prefer the refresh be done in the background.