Не могу разобраться с проблемой возникновения ошибки. Код следующий:
Код
Sub check()
Set objIE = CreateObject("InternetExplorer.Application")
'objIE.Navigate "https://ya.ru/"
objIE.Navigate "https://www.reestr-zalogov.ru/search/index"
While objIE.Busy Or (objIE.ReadyState <> 4)
DoEvents
Wend
objIE.Visible = 1
MsgBox objIE.LocationURL
objIE.Quit
Set objIE = Nothing
End Sub
При выполнении кода возникают разные ошибки на строке
Код
While objIE.Busy Or (objIE.ReadyState <> 4)
Ошибка: Run-time error -2147023179 (800706b5) Automation error the interface is unknown
объект "objIE" принимает значение Visible (хотя до этой строки код еще не дошел)
Этот же код при замене URL адреса на "https://ya.ru/" отрабатывает без проблем. В чем может быть причина ошибок? Сам сайт блокирует корректное выполнение макроса?
Игорь, у Вас оба сайта открываются без ошибок? настройки безопасности поменять или какие? Как такое может быть, что с одними и теми же настройками один сайт открывается, а другой нет? Может быть, что это особенности сайтов?
Нашел эту тему потому, что у самого такой же случай возник... Работал - работал макрос, и потом эти ошибки пошли! Конечно понимаю, что времени уже очень много прошло, но вдруг кому то еще пригодится?
Решение в том, чтобы открыть диспетчер задач и поубивать все процессы IE!! В моем случае я несколько раз прерывал для отладки приложение break'ом и поэтому не дошло до IE.Quit, а у него видимо есть ограничение на количество одновременных сеансов. Догадался по нагузке на ЦП и характерному жужжанию во вроде бы айдле )