我使用XMLHTTP连接到Web服务器的API并检索一些数据。 我连接到http URL，以便可以从任何位置访问，但是我想在办公室时执行此操作，如果没有Internet连接，则宏将继续工作以连接到第二个URL（内部IP）。 / p>
我在想这样的事情：
Dim basic_url, basic_url_web, basic_url_local As String
basic_url_web = "www.notexistingurl.com"
basic_url_local = "192.168.178.3"
Dim myurl As String
On Error Resume Next
myurl = basic_url_web + "/api/product/read_product.php?id=4"
xmlhttp.Open "GET", myurl, False
xmlhttp.Send
If Err.Number <> 0 then
myurl = basic_url_local + "/api/product/read_product.php?id=4"
xmlhttp.Open "GET", myurl, False
xmlhttp.Send
END IF
On Error GoTo 0 'error checkin restored
但是它不起作用，实际上，当我调用xmlhttp.Send函数时，我曾经有一个-2147467259错误号，如果实际上没有错误，则这是与我相同的错误号。 如果我不使用“ On Error Resume Next”，那么我在.send（）函数上（在不存在的链接上）会出现自动化错误，因此无法使用它。
我快疯了，我只用了2-3个小时就完成了与API的所有连接，并且一切工作都很好，但是现在我已经工作了好几天了，以寻找一种解决方案，如果有首先无法达到。
谢谢您的建议