Sub info()
Dim oIE As Object
Set oIE = CreateObject("InternetExplorer.Application")
oIE.Visible = 0 ' не отображать окно Интернет Эксплорера 0/1 отображать
oIE.Navigate ("www") 'сайт
Do While oIE.busy Or (oIE.readyState <> 4): DoEvents: Loop 'ждем пока браузер загрузится
Application.Wait Now + 1.5 / 86400
oIE.document.forms("pform").elements("camusername").Value = "login" 'вводим логин
oIE.document.forms("pform").elements("campassword").Value = "1234" 'вводим пароль
oIE.document.forms("pform").elements("cmdok").Click 'нажимаем ОК
oIE.quit
set oIE=nothing
End Sub
Проблема в том, что данный код работает на XP 32битном, но не работает на 64-битной 7ке. Ругается на oIE.document.forms("pform").elements("camusername").Value = "login". Говорит, что непонятный ему интерфейс. Пробовал подключать те же библиотеки - безуспешно. Также игнорирует oIE.Visible = 0, и всё равно показывает IE. Понимаю, что ошибка скорее всего из-за битности, но пока информации не нашёл. Заранее благодарен.
Dim oIE As Object
Set oIE = CreateObject("InternetExplorer.Application")
oIE.Visible = 0 ' не отображать окно Интернет Эксплорера 0/1 отображать
oIE.Navigate ("www") 'сайт
Do While oIE.busy Or (oIE.readyState <> 4): DoEvents: Loop 'ждем пока браузер загрузится
Application.Wait Now + 1.5 / 86400
oIE.document.forms("pform").elements("camusername").Value = "login" 'вводим логин
oIE.document.forms("pform").elements("campassword").Value = "1234" 'вводим пароль
oIE.document.forms("pform").elements("cmdok").Click 'нажимаем ОК
oIE.quit
set oIE=nothing
End Sub
Проблема в том, что данный код работает на XP 32битном, но не работает на 64-битной 7ке. Ругается на oIE.document.forms("pform").elements("camusername").Value = "login". Говорит, что непонятный ему интерфейс. Пробовал подключать те же библиотеки - безуспешно. Также игнорирует oIE.Visible = 0, и всё равно показывает IE. Понимаю, что ошибка скорее всего из-за битности, но пока информации не нашёл. Заранее благодарен.