Я использую XMLHTTP для подключения к API веб-сервера и получения некоторых данных.Я подключаюсь к URL-адресу http, чтобы получить доступ из любой позиции, но я хочу сделать это, когда я нахожусь в офисе, если нет подключения к Интернету, макрос продолжает работать, подключаясь ко второму URL-адресу (внутренний IP-адрес).
Я думал, что-то вроде этого:
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 () (по несуществующей ссылке), и поэтому я не могу с ней работать.
I'mКогда я сошел с ума, мне потребовалось всего 2-3 часа, чтобы установить соединение с API, и все работало отлично, но сейчас я работаю уже несколько дней, чтобы найти решение, позволяющее получить второй URL, если первый не может быть достигнут.
Спасибо за ваши предложения