Sub info()
Dim oIE As Object
Set oIE = CreateObject("InternetExplorer.Application")
oIE.Visible = 1
oIE.navigate ("yandex.ru")
Do While oIE.busy Or (oIE.readyState <> 4): DoEvents: Loop
Application.Wait Now + 1.5 / 86400
oIE.document.forms(0).elements(0).Value = "111"
End Sub
Данный код прекрасно работает на 2-ух системах: 1)Windows XP 32bit Office 2007, 2)Windows 7 64bit Office 2007. Т.е. в поисковую строку Yandex вводится 111.
Если же подставить интересующий меня сайт, и соответственно другой элемент, то код исполняется лишь на первой системе. На семерке же код отчего-то выдаёт ошибку:
Run-time error ‘-2147417848 (80010108)’:
Automation error
The object invoked has disconnected from its clients.
Отчего так - думается из-за библиотек или из-за битности системы. Но не пойму, почему в первом случае с Yandex всё работает прекрасно. Был бы премного благодарен, если бы указали куда копать или подсказали решение.
Dim oIE As Object
Set oIE = CreateObject("InternetExplorer.Application")
oIE.Visible = 1
oIE.navigate ("yandex.ru")
Do While oIE.busy Or (oIE.readyState <> 4): DoEvents: Loop
Application.Wait Now + 1.5 / 86400
oIE.document.forms(0).elements(0).Value = "111"
End Sub
Данный код прекрасно работает на 2-ух системах: 1)Windows XP 32bit Office 2007, 2)Windows 7 64bit Office 2007. Т.е. в поисковую строку Yandex вводится 111.
Если же подставить интересующий меня сайт, и соответственно другой элемент, то код исполняется лишь на первой системе. На семерке же код отчего-то выдаёт ошибку:
Run-time error ‘-2147417848 (80010108)’:
Automation error
The object invoked has disconnected from its clients.
Отчего так - думается из-за библиотек или из-за битности системы. Но не пойму, почему в первом случае с Yandex всё работает прекрасно. Был бы премного благодарен, если бы указали куда копать или подсказали решение.