Checking http status but need help error handling (to avoid excel hanging)

[Oliver Dewar]

Hi Guys.

I'm checking links in excel using this code:

Private Function GetResult(ByVal strUrl As String) As String

    On Error GoTo ErrorHandler


    Dim oHttp As New MSXML2.XMLHTTP30


    oHttp.Open "HEAD", strUrl, False
    oHttp.send


    GetResult = oHttp.Status & " " & oHttp.statusText


    Exit Function


ErrorHandler:
    GetResult = "Error: " & Err.Description


End Function

But occasionally when checking a link excel just hangs and becomes unresponsive, requiring a forced restart.

I don't understand enough of the behind the scenes workings to guess at why that would be... but I need a way to handle this in code when it occurs.

Can anyone suggest a solution? I was thinking perhaps some kind of time limit for the action and excel aborts if the time... say 30 seconds, elapses without response. But I'm not sure if it's possible or how to code it.

I'd love your help guys.

Cheers,

Oliver

 

[pbornemeier]

Perhaps you could us the OnTimer event, I am not sure if it would work, but here is a post that discusses it: http://www.mrexcel.com/forum/excel-questions/44763-timer-events.html Be sure to read the final post.

Immediately prior to the first oHttp entry, set a timer to call a sub that contains the End statement.
After the last oHttp entry, clear the timer so it will not run