VBA - автоматизация IE

Sub Autologin() 
    Dim IE As Object 
    Set IE = CreateObject("InternetExplorer.Application") 
    IE.Navigate "my_url" 
    IE.Document.GetElementByID("j_username").Value = "my_username"`

Ошибка на последней строке.VBA - автоматизация IE

Error: Run-time error '-2147417848 (80010108)': 
     Automation error, The object invoked has disconnected from its client.

Я нашел этот код в состоянии работать на моем домашнем ноутбуке, но не в моем рабочем ноутбуке. Кто-нибудь знает, как решить эту проблему? Благодаря

источник

2016-10-25 darrenvba

Это звучит немного наивно, но на вашем рабочем ноутбуке установлен Internet Explorer? – RCaetano

Да. URL-адрес открывается в Internet Explorer, но он ничего не вводит в поле имени пользователя и появляется сообщение об ошибке. Спасибо – darrenvba

Возможно, это из-за моего незнания, но вы пытаетесь «GetElementByID» и присваиваете ему значение? он думал, что 'GetElementByID' вернул объект? как можно присвоить значение? Также вы не фиксируете то, что возвращается? – Zac

уступи идти:

Dim mainDoc As HTMLDocument 
Set mainDoc = IE.document

«Это где вы добавляете идентификационное имя элемента управления вы хотите получить доступ. Вы можете найти идентификационное имя, выполнив поиск через источник через «Просмотр - Источник» в Internet Explorer.

mainDoc.all("j_username").value="my_username" 

Set IE = Nothing 
Set mainDoc = Nothing

источник

2017-01-06 11:04:56 GeorgeP

-1

уступи идти:

Dim mainDoc As HTMLDocument 
Set mainDoc = IE.document

«Это где вы добавить имя идентификатор элемента управления вы хотите получить доступ. Вы можете найти идентификационное имя, выполнив поиск через источник через «Просмотр - Источник» в Internet Explorer.

mainDoc.all("j_username").value="my_username" 

Set IE = Nothing 
Set mainDoc = Nothing

источник

2017-01-06 11:01:52 GeorgeP

VBA - автоматизация IE

ответ

Смежные вопросы