Jak wywołać funkcję zwrotną VBA, gdy XMLHTTP onTimeOut?
Próbuję uzyskać dane xml z serwera WWW do Excela, a następnie napisałemsendRequest
funkcja do wywołania w programie Excel
=sendRequest("http://abb.com/index.php?id=111")
Gdy serwer WWW mający problemy, nie może się połączyć lub nie może znaleźć, excel nie odpowiada, to było okropne! Aby tego uniknąć, myślę, że powinniśmy ustawić czas. Oto moja funkcja:
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
Normalnie, kiedyXMLHTTP
Upłynął limit czasu zdarzeniaOnTimeOutMessage
zostanie wykonany (odniesienie# 1, # 2). Ale jak wmój test, OnTimeOutMessage
jest wykonywany na początkusendRequest()
Jak używać funkcji wywołania zwrotnego, gdyMsxml2.ServerXMLHTTP.6.0 żądanie to limit czasu?
Dziękuję za Twoją pomoc!