Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/выбор из списка в web-форме. - Страница 2 - Мир MS Excel

Старая форма входа
  • Страница 2 из 2
  • «
  • 1
  • 2
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » выбор из списка в web-форме. (Макросы/Sub)
выбор из списка в web-форме.
Manyasha Дата: Пятница, 25.12.2015, 15:28 | Сообщение № 21
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация: 898 ±
Замечаний: 0% ±

Excel 2010, 2016
у меня и так и так работает %)
Цитата marryska_7, 25.12.2015 в 14:47, в сообщении № 17
библиотека "kernel32"
Из Вашего кода
Цитата marryska_7, 25.12.2015 в 12:17, в сообщении № 11
Sleep Lib "kernel32"

Я ничего не удаляла, просто привела к рабочему виду, для данного макроса она не нужна!
Вот еще попробуйте
[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"

ЯД: 410013299366744 WM: R193491431804
 
Ответить
Сообщениеу меня и так и так работает %)
Цитата marryska_7, 25.12.2015 в 14:47, в сообщении № 17
библиотека "kernel32"
Из Вашего кода
Цитата marryska_7, 25.12.2015 в 12:17, в сообщении № 11
Sleep Lib "kernel32"

Я ничего не удаляла, просто привела к рабочему виду, для данного макроса она не нужна!
Вот еще попробуйте
[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
Дата добавления - 25.12.2015 в 15:28
marryska_7 Дата: Пятница, 25.12.2015, 15:39 | Сообщение № 22
Группа: Пользователи
Ранг: Новичок
Сообщений: 20
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Цитата Manyasha, 25.12.2015 в 15:28, в сообщении № 21
Справа от поля для логина, должно установиться ""list.ru"

у нас нет возможности проверить на внешних адресах :( :( интернет обрезан, работаем только на внутреннем портале...

Попробовала на примере вашего файла сделать. На строчке
[vba]
Код
Set doc = objIe.document
[/vba]
выдает снова ошибку (Run-time error '-2147417848 (80010108)': Automation error The object invoked disconnected from its clients."
Может просто в интернетЭксплорере дело?.. Может через другой браузер попробовать?..
 
Ответить
Сообщение
Цитата Manyasha, 25.12.2015 в 15:28, в сообщении № 21
Справа от поля для логина, должно установиться ""list.ru"

у нас нет возможности проверить на внешних адресах :( :( интернет обрезан, работаем только на внутреннем портале...

Попробовала на примере вашего файла сделать. На строчке
[vba]
Код
Set doc = objIe.document
[/vba]
выдает снова ошибку (Run-time error '-2147417848 (80010108)': Automation error The object invoked disconnected from its clients."
Может просто в интернетЭксплорере дело?.. Может через другой браузер попробовать?..
Автор - marryska_7
Дата добавления - 25.12.2015 в 15:39
marryska_7 Дата: Суббота, 26.12.2015, 12:59 | Сообщение № 23
Группа: Пользователи
Ранг: Новичок
Сообщений: 20
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Цитата Manyasha, 25.12.2015 в 15:28, в сообщении № 21
Справа от поля для логина, должно установиться ""list.ru"


видимо всё дело в IE... Дома на IE 10 работает на ура, а на работе IE 8 и макрос отказывается работать, ссылаясь на клиент... :( :(

на работе обновить IE нельзя... может есть варианты адаптировать работу макроса к IE 8?..
 
Ответить
Сообщение
Цитата Manyasha, 25.12.2015 в 15:28, в сообщении № 21
Справа от поля для логина, должно установиться ""list.ru"


видимо всё дело в IE... Дома на IE 10 работает на ура, а на работе IE 8 и макрос отказывается работать, ссылаясь на клиент... :( :(

на работе обновить IE нельзя... может есть варианты адаптировать работу макроса к IE 8?..
Автор - marryska_7
Дата добавления - 26.12.2015 в 12:59
marryska_7 Дата: Понедельник, 28.12.2015, 15:50 | Сообщение № 24
Группа: Пользователи
Ранг: Новичок
Сообщений: 20
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Гуру экселя, больше нет предложений?((((((
 
Ответить
СообщениеГуру экселя, больше нет предложений?((((((
Автор - marryska_7
Дата добавления - 28.12.2015 в 15:50
marryska_7 Дата: Понедельник, 04.01.2016, 09:24 | Сообщение № 25
Группа: Пользователи
Ранг: Новичок
Сообщений: 20
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Нашли с мужем файл с кодом, который в связке Excel2010+IE8+Windows 7 открывает без ошибок сайт, но как в него прикрутить выбор из списка и заполнение нужных полей непонятно((( может поможете?)
К сообщению приложен файл: _VBA_IE.xls (33.5 Kb)
 
Ответить
СообщениеНашли с мужем файл с кодом, который в связке Excel2010+IE8+Windows 7 открывает без ошибок сайт, но как в него прикрутить выбор из списка и заполнение нужных полей непонятно((( может поможете?)
Автор - marryska_7
Дата добавления - 04.01.2016 в 09:24
krosav4ig Дата: Понедельник, 04.01.2016, 18:37 | Сообщение № 26
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация: 989 ±
Замечаний: 0% ±

Excel 2007,2010,2013
marryska_7, ну дык [vba]
Код
gobjWithEvents.IE.Document.getElementsByName("contr_status")(0).Value = 57
[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеmarryska_7, ну дык [vba]
Код
gobjWithEvents.IE.Document.getElementsByName("contr_status")(0).Value = 57
[/vba]
Автор - krosav4ig
Дата добавления - 04.01.2016 в 18:37
marryska_7 Дата: Вторник, 05.01.2016, 07:05 | Сообщение № 27
Группа: Пользователи
Ранг: Новичок
Сообщений: 20
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Цитата krosav4ig, 04.01.2016 в 18:37, в сообщении № 26
ну дык

а куда его пристроить подскажете?.. :(
 
Ответить
Сообщение
Цитата krosav4ig, 04.01.2016 в 18:37, в сообщении № 26
ну дык

а куда его пристроить подскажете?.. :(
Автор - marryska_7
Дата добавления - 05.01.2016 в 07:05
krosav4ig Дата: Вторник, 05.01.2016, 20:12 | Сообщение № 28
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация: 989 ±
Замечаний: 0% ±

Excel 2007,2010,2013
в процедуру DocumentComlete
[vba]
Код
Public Sub DocumentComlete(varURL As Variant)
'-- Процедура вызывается событием DocumentComlete,
'-- сравнивает URL загруженной страницы,
'-- создает объект HTML Document
'-- и выполняет необходимые действия с
'-- содержимым Web-страницы
  
  gobjWithEvents.IE.Document.getElementsByName("contr_status")(0).Value = 57
  
End Sub
[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениев процедуру DocumentComlete
[vba]
Код
Public Sub DocumentComlete(varURL As Variant)
'-- Процедура вызывается событием DocumentComlete,
'-- сравнивает URL загруженной страницы,
'-- создает объект HTML Document
'-- и выполняет необходимые действия с
'-- содержимым Web-страницы
  
  gobjWithEvents.IE.Document.getElementsByName("contr_status")(0).Value = 57
  
End Sub
[/vba]
Автор - krosav4ig
Дата добавления - 05.01.2016 в 20:12
marryska_7 Дата: Среда, 06.01.2016, 07:21 | Сообщение № 29
Группа: Пользователи
Ранг: Новичок
Сообщений: 20
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Цитата krosav4ig, 05.01.2016 в 20:12, в сообщении № 28
в процедуру DocumentComlete

не выбирает %) ошибки не выдает, но и выбор не производит(
 
Ответить
Сообщение
Цитата krosav4ig, 05.01.2016 в 20:12, в сообщении № 28
в процедуру DocumentComlete

не выбирает %) ошибки не выдает, но и выбор не производит(
Автор - marryska_7
Дата добавления - 06.01.2016 в 07:21
Мир MS Excel » Вопросы и решения » Вопросы по VBA » выбор из списка в web-форме. (Макросы/Sub)
  • Страница 2 из 2
  • «
  • 1
  • 2
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!