Excel VBA Управление локальной сетью IE
Итак, я использую код Excel VBA, чтобы нажать кнопку на нашем веб-сайте, поверьте мне, я знаю, что это не такЭто лучшее из того, что нужно сделать, но это наименее нежелательный вариант, доступный мне на данный момент.
Таким образом, этот выбор вне пути, вот моя проблема, я могу использовать этот код, успешно загрузить imdb.com, Google и т. Д. Но когда я загружаю наш локальный сайт, я теряю контроль над объектом ie, я могуне могу проверить готовность, я могут Выйти Вот ошибка, которую я получаю. Ошибка выполнения '-2147023179 (800706b5) ':
Ошибка автоматизации Интерфейс неизвестен
Время от времени я получаю это сообщение: Ошибка времени выполнения '-2147417848 (80010108) ':
Ошибка автоматизации Вызванный объект отключился от своих клиентов.
Нажатие Debug указывает на ie.readyState, я также попытался закомментировать это, а затем он указывает на ie.Quit
Sub dothestuff()
Dim ie As InternetExplorer
Set ie = New InternetExplorer
ie.Visible = True
ie.Navigate "http://www.google.com/"
anerror = webload(ie)
ie.Quit
Set ie = Nothing
End Sub
Function webload(ie)
Do Until ie.ReadyState = READYSTATE_COMPLETE
DoEvents
Loop
End Function