Как использовать функцию обратного вызова VBA, когда XMLHTTP onTimeOut?
Я пытаюсь получить данные XML с веб-сервера, чтобы преуспеть, затем я написалsendRequest
функция для вызова в Excel
=sendRequest("http://abb.com/index.php?id=111")
Когда веб-сервер имел проблемы, не может подключиться или не может найти, Excel не отвечает, это было ужасно! Чтобы избежать этого, я думаю, что мы должны установить timeOut. Это моя функция:
Function sendRequest(Url)
'Call service
Set XMLHTTP = CreateObject("Msxml2.ServerXMLHTTP.6.0")
'Timeout values are in milli-seconds
lResolve = 10 * 1000
lConnect = 10 * 1000
lSend = 10 * 1000
lReceive = 15 * 1000 'waiting time to receive data from server
XMLHTTP.setTimeOuts lResolve, lConnect, lSend, lReceive
XMLHTTP.OnTimeOut = OnTimeOutMessage 'callback function
XMLHTTP.Open "GET", Url, False
On Error Resume Next
XMLHTTP.Send
On Error GoTo 0
sendRequest = (XMLHTTP.responseText)
End Function
Private Function OnTimeOutMessage()
'Application.Caller.Value = "Server error: request time-out"
MsgBox ("Server error: request time-out")
End Function
Обычно, когдаXMLHTTP
истекло время ожидания, событиеOnTimeOutMessage
будет выполнен (ссылка#1, #2). Но как вмой тест, OnTimeOutMessage
выполняется в самом началеsendRequest()
Как использовать функцию обратного вызова, когдаMsxml2.ServerXMLHTTP.6.0 запрос истек?
Спасибо за помощь!