Я ничего не удаляла, просто привела к рабочему виду, для данного макроса она не нужна! Вот еще попробуйте [vba]
Код
Sub rrr() Dim objIe As Object: Set objIe = CreateObject("InternetExplorer.Application") Dim elems As IHTMLElementCollection Dim elem As IHTMLElement Dim doc As HTMLDocument objIe.Visible = 1 Dim i$: i = "https://mail.ru/" objIe.navigate i Application.Wait (Now + TimeValue("0:00:05")) Set doc = objIe.document Set elems = doc.getElementsByTagName("select") For Each elem In elems If elem.Name = "Domain" Then elem.Value = "list.ru" Next elem Set elems = Nothing End Sub
[/vba]Справа от поля для логина, должно установиться ""list.ru"
Я ничего не удаляла, просто привела к рабочему виду, для данного макроса она не нужна! Вот еще попробуйте [vba]
Код
Sub rrr() Dim objIe As Object: Set objIe = CreateObject("InternetExplorer.Application") Dim elems As IHTMLElementCollection Dim elem As IHTMLElement Dim doc As HTMLDocument objIe.Visible = 1 Dim i$: i = "https://mail.ru/" objIe.navigate i Application.Wait (Now + TimeValue("0:00:05")) Set doc = objIe.document Set elems = doc.getElementsByTagName("select") For Each elem In elems If elem.Name = "Domain" Then elem.Value = "list.ru" Next elem Set elems = Nothing End Sub
[/vba]Справа от поля для логина, должно установиться ""list.ru"Manyasha
Справа от поля для логина, должно установиться ""list.ru"
у нас нет возможности проверить на внешних адресах интернет обрезан, работаем только на внутреннем портале...
Попробовала на примере вашего файла сделать. На строчке [vba]
Код
Set doc = objIe.document
[/vba] выдает снова ошибку (Run-time error '-2147417848 (80010108)': Automation error The object invoked disconnected from its clients." Может просто в интернетЭксплорере дело?.. Может через другой браузер попробовать?..
Справа от поля для логина, должно установиться ""list.ru"
у нас нет возможности проверить на внешних адресах интернет обрезан, работаем только на внутреннем портале...
Попробовала на примере вашего файла сделать. На строчке [vba]
Код
Set doc = objIe.document
[/vba] выдает снова ошибку (Run-time error '-2147417848 (80010108)': Automation error The object invoked disconnected from its clients." Может просто в интернетЭксплорере дело?.. Может через другой браузер попробовать?..marryska_7
Нашли с мужем файл с кодом, который в связке Excel2010+IE8+Windows 7 открывает без ошибок сайт, но как в него прикрутить выбор из списка и заполнение нужных полей непонятно((( может поможете?)
Нашли с мужем файл с кодом, который в связке Excel2010+IE8+Windows 7 открывает без ошибок сайт, но как в него прикрутить выбор из списка и заполнение нужных полей непонятно((( может поможете?)marryska_7
Public Sub DocumentComlete(varURL As Variant) '-- Процедура вызывается событием DocumentComlete, '-- сравнивает URL загруженной страницы, '-- создает объект HTML Document '-- и выполняет необходимые действия с '-- содержимым Web-страницы
Public Sub DocumentComlete(varURL As Variant) '-- Процедура вызывается событием DocumentComlete, '-- сравнивает URL загруженной страницы, '-- создает объект HTML Document '-- и выполняет необходимые действия с '-- содержимым Web-страницы