Sub info()
Dim oIE As Object
Dim tmp, i As Long
Set oIE = CreateObject("InternetExplorer.Application")
oIE.Visible = 0 ' не отображать окно Интернет Эксплорера 0/1 отображать
oIE.Navigate ("http://www") 'сайт
Do While oIE.busy Or (oIE.ReadyState <> 4): DoEvents: Loop 'ждем пока браузер загрузится
oIE.Document.forms("pform").elements("camusername").Value = "111" 'вводим логин
oIE.Document.forms("pform").elements("campassword").Value = "1234" 'вводим пароль
oIE.Document.forms("pform").elements("cmdok").Click 'нажимаем ОК
Do While oIE.busy Or (oIE.ReadyState <> 4): DoEvents: Loop 'ждем пока браузер загрузится
oIE.Visible = 1
End Sub
Пошагово этот код выполняется прекрасно.При обычном запуске макроса выдаёт
Run-time error '91': Object variable or With block variable not set
В чём проблема понять не могу.
Dim oIE As Object
Dim tmp, i As Long
Set oIE = CreateObject("InternetExplorer.Application")
oIE.Visible = 0 ' не отображать окно Интернет Эксплорера 0/1 отображать
oIE.Navigate ("http://www") 'сайт
Do While oIE.busy Or (oIE.ReadyState <> 4): DoEvents: Loop 'ждем пока браузер загрузится
oIE.Document.forms("pform").elements("camusername").Value = "111" 'вводим логин
oIE.Document.forms("pform").elements("campassword").Value = "1234" 'вводим пароль
oIE.Document.forms("pform").elements("cmdok").Click 'нажимаем ОК
Do While oIE.busy Or (oIE.ReadyState <> 4): DoEvents: Loop 'ждем пока браузер загрузится
oIE.Visible = 1
End Sub
Пошагово этот код выполняется прекрасно.При обычном запуске макроса выдаёт
Run-time error '91': Object variable or With block variable not set
В чём проблема понять не могу.