- Код: Выделить всё
1
Do While IE.Document.readyState <> "complete"
DoEvents
Loop
2
Do While IE.readyState <> 4
DoEvents
Loop
3
Do While IE.Document.forms(0).Document.readyState <> "complete"
DoEvents
Loop
Но столкнулся с страницей в закрытой локальной сети, ничего не помогает, код проходит эти строки и двигается дальше, а страница не загружается и всё!!!!
Подсказывают попробовать объект XMLHttpRequest
Читал хелп по этому объекту, ничего не понял, попытался попробовать код:
- Код: Выделить всё
On Error Resume Next
Dim oHTTP As New MSXML.XMLHttpRequest 'подключаем библиотеку Tools References Microsoft XML, version 2.0
oHTTP.Open "GET", "http://www.google.com/", False
oHTTP.Send 'здесь получаю системную ошибку 2146697211?
Debug.Print Err.Number & ":" & Err.Description '2147024891:Отказано в доступе. ?
Х = oHTTP.responseText
Приведите пжл пример на ВБА, где код работает и где понятно о возможностях этого объекта XMLHttpRequest
И правильно я понял, что когда в третьей строке приведённого мной кода стоит параметр false – это означает - синхронно (скрипт будет ожидать ответа от сервера)?
