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

@Shraman · Регистрация: 20.09.2013

Author24 — интернет-сервис помощи студентам

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

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

Visual Basic

Sub tree()
Dim oIE As Object, s As String
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
End Sub

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

Visual Basic

1	oIE.Navigate (s)

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

Excel 2010, IE 8

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

@mc-black · 02.08.2014, 10:15

В Tools - References ничего дополнительно подключать не надо - код будет работать и так. Приведенный код работоспособный. Проверено на аналогичной конфигурации (Excel 2010 + IE 8), возможно у нас общий корпоративный сайт ))) Другой вопрос в том, что если у вас страница корпоративного сайта на фреймах, то надо сначала "достучаться" до фрейма с Input. Для начала поместите код в новую книгу, ничего дополнительного не подключая, где вылетит ошибка?

@Shraman · 03.08.2014, 23:22 **[ТС]**

Добрый день.
Спасибо за ответ.

Попробовал как Вы сказали выходят следующие ошибки:
1. Run-time error -2147023179 (800706b5)
Automation error
the interface is unknown

2. Run-time error -2147467259(800040005)
Method "Busy" of Object "IWebBrowser2" failed

_______
"Другой вопрос в том, что если у вас страница корпоративного сайта на фреймах, то надо сначала "достучаться" до фрейма с Input"

Как мне достучаться до фрейма, если HTML не подгружается?

@mc-black 2785 / 717 / 106 Регистрация: 04.02.2011 Сообщений: 1,443
	02.08.2014, 10:15	2
	В Tools - References ничего дополнительно подключать не надо - код будет работать и так. Приведенный код работоспособный. Проверено на аналогичной конфигурации (Excel 2010 + IE 8), возможно у нас общий корпоративный сайт ))) Другой вопрос в том, что если у вас страница корпоративного сайта на фреймах, то надо сначала "достучаться" до фрейма с Input. Для начала поместите код в новую книгу, ничего дополнительного не подключая, где вылетит ошибка? 0

@Shraman 0 / 0 / 0 Регистрация: 20.09.2013 Сообщений: 2
	03.08.2014, 23:22 [ТС]	3
	Добрый день. Спасибо за ответ. Попробовал как Вы сказали выходят следующие ошибки: 1. Run-time error -2147023179 (800706b5) Automation error the interface is unknown 2. Run-time error -2147467259(800040005) Method "Busy" of Object "IWebBrowser2" failed _______ "Другой вопрос в том, что если у вас страница корпоративного сайта на фреймах, то надо сначала "достучаться" до фрейма с Input" Как мне достучаться до фрейма, если HTML не подгружается? 0