Исправить ошибку при загрузке HTML-страницы / VBA

[Shraman]

Уважаемые коллеги.
Представляю Вашему вниманию код который заходит на mail.ru вводит в строку поиска слово "Москва" и нажимает найти.

в tools все необходимые библиотеки подключены.
Код работает безупречно.

Sub tree()
Dim oIE As Object, s As String
Set oIE = CreateObject("InternetExplorer.Appl ication")
oIE.Visible = 1
s = "http://mail.ru"
oIE.Navigate (s)
Do While oIE.Busy Or (oIE.ReadyState <> 4): DoEvents: Loop


Set NL = oIE.Document.getElementsByTagName(" Input")

NL(8).value = "Москва"
NL(7).Click

If Application.Wait(Now + TimeValue("0:00:10")) Then
oIE.Quit
End If
End Sub


Проблема:
На работе есть корпоративный сайт пытаюсь таким же способом работать с ним из окружения VBA (Excel),
но после отработки следующей строки -

Код Visual Basic
1
oIE.Navigate (s)


Подключение к сайту проподает:
Возникает ошибка Automation error -2блаблабла.
То есть как только загружается страница связь с объектом oIE - проподает, реально пропадает.

Excel 2010, IE 8

Заранее благодарен за помощь
За "дельный" совет кину деньгу на телефон.

[EducatedFool]

Возникает ошибка Automation error -2блаблабла.

текст ошибки пробовали в Google вбить?
что за ошибка? самое важное в сообщении заменили на блаблабла...

Какой URL присвоен переменной s?

Если вручную открыть ваш сайт в IE - всё работает как надо?

[Solmir741]

У меня была подобная проблема. Подозрение на ошибку элемента ActiveX (хотя не уверен). Такое ощущение, что переменная oIE теряет связь с созданным объектом. Попробуйте так:

Sub tree()
On Error GoTo Errors
Dim oShApp As Object, oWin As Object
Dim oIE As Object, s As String
Errors: Set oIE = CreateObject("InternetExplorer.Application")
oIE.Visible = 1
s = "http://mail.ru"
oIE.Navigate (s)
Do While oIE.Busy Or (oIE.ReadyState <> 4): DoEvents: Loop


Set NL = oIE.Document.getElementsByTagName(" Input")

NL(8).value = "Москва"
NL(7).Click

If Application.Wait(Now + TimeValue("0:00:10")) Then
oIE.Quit
End If
goto ends
Errors:
    Set oShApp = CreateObject("Shell.Application")
    For Each oWin In oShApp.Windows
        If TypeName(oWin.Document) = "HTMLDocument" Then
            Set oIE= oWin
            Exit For
        End If
    Next
ends:
End Sub

Знаю, похоже на танец с бубнами, но данная конструкция мне лично помогла. По другому ошибку победить не получалось.

[Shraman]

Уважаемый EducatedFool, добрый день.

Отвечаю на Ваши вопросы:
1. Url корректный, тот который надо.
2. При открытии ручками - работает !?
3. в поисковике конкретного объяснения нет, подобная тема ранее не на ру форумах и ком форумах не поднималась (или я не проявил должного усердия).

Ошибка выходит следующая - "Run-time error - 2147417848(80010108) Automation error"
"the object invoked has disconnected from its clients"

[Shraman]

Уважаемый Solmir741, добрый день.

Cпасибо за пример, такого решения ещё не встречал, подход интересный.
Но, у меня возникает следующая ошибка - Run - time error -2147467259 (80004005) Method Document of object IwebBrowser2 failed

[EducatedFool]

Сложно найти причину без тестирования кода

что возможно:
1) длина URL превышает 255 символов
2) глюк IE при работе с конкретным сайтом (или сайт в IE вообще не работает)
3) глюк скриптов на сайте, которые некорректно работают с данным компонентом
4) в коде что-то не так

PS: Вместо Navigate можете попробовать Navigate2

[doober]

Была такая проблема.
Ie с сайтом не ужился.
Установите Maxthon ,он работает на движке IE.
Прекрасно работаю с ним.
Объект создается как и IE
Set oIE = CreateObject("InternetExplorer.Appl ication")