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

Вход

Регистрация

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

 

= Мир MS Excel/В IE выбор элемента из раскрывающегося списка - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, китин  
Мир MS Excel » Вопросы и решения » Excel и другие приложения » В IE выбор элемента из раскрывающегося списка (Макросы/Sub)
В IE выбор элемента из раскрывающегося списка
WeRiX Дата: Пятница, 13.06.2014, 12:35 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 44
Репутация: 4 ±
Замечаний: 0% ±

Excel 2013
Подскажите кто может, очень плохо разбираюсь в данном направлении!
на интернет-странице при помощи данного кода для выбора элемента из раскрывающегося списка у меня получается выбрать необходимое значение, но при нажатии кнопки поиска отображается ошибка, что в этом поле данные не выбраны.
Т.е. на мониторе я вижу, что данные переключились, а сама страница получается, что нет.
oDoc2.getElementsByTagName("select").Item(3).value=1
приходится выкручиваться таким способом
oDoc2.getElementsByTagName("select").Item(3).Focus
SendKeys "{down}"
Но при нем необходимо, чтобы ie был активным окном, что мне совсем не нужно.
если кто в этом разбирается, сталкивался с этим, подскажите в чем может быть проблема
возможно выбрать элемент из списка можно каким-нить другим способом, про который я не вкурсе

и да, к сожалению у меня нет возможности сбросить сюда копию страницы. с работы ничего не копируется. так бы было намного проще знаю)
 
Ответить
СообщениеПодскажите кто может, очень плохо разбираюсь в данном направлении!
на интернет-странице при помощи данного кода для выбора элемента из раскрывающегося списка у меня получается выбрать необходимое значение, но при нажатии кнопки поиска отображается ошибка, что в этом поле данные не выбраны.
Т.е. на мониторе я вижу, что данные переключились, а сама страница получается, что нет.
oDoc2.getElementsByTagName("select").Item(3).value=1
приходится выкручиваться таким способом
oDoc2.getElementsByTagName("select").Item(3).Focus
SendKeys "{down}"
Но при нем необходимо, чтобы ie был активным окном, что мне совсем не нужно.
если кто в этом разбирается, сталкивался с этим, подскажите в чем может быть проблема
возможно выбрать элемент из списка можно каким-нить другим способом, про который я не вкурсе

и да, к сожалению у меня нет возможности сбросить сюда копию страницы. с работы ничего не копируется. так бы было намного проще знаю)

Автор - WeRiX
Дата добавления - 13.06.2014 в 12:35
doober Дата: Пятница, 13.06.2014, 12:55 | Сообщение № 2
Группа: Друзья
Ранг: Ветеран
Сообщений: 947
Репутация: 323 ±
Замечаний: 0% ±

Excel 2010
Нужна ссылка на сайт,необходимо посмотреть код страницы


 
Ответить
СообщениеНужна ссылка на сайт,необходимо посмотреть код страницы

Автор - doober
Дата добавления - 13.06.2014 в 12:55
SkyPro Дата: Пятница, 13.06.2014, 13:22 | Сообщение № 3
Группа: Друзья
Ранг: Старожил
Сообщений: 1206
Репутация: 255 ±
Замечаний: 0% ±

2010
Используйте не управление ИЕ, а отправку таких же заголовков, что и браузер.


skypro1111@gmail.com
 
Ответить
СообщениеИспользуйте не управление ИЕ, а отправку таких же заголовков, что и браузер.

Автор - SkyPro
Дата добавления - 13.06.2014 в 13:22
WeRiX Дата: Пятница, 13.06.2014, 14:52 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 44
Репутация: 4 ±
Замечаний: 0% ±

Excel 2013
SkyPro, а можно поподробнее или ссылочку на пример/описание данного приема
Спасибо!
 
Ответить
СообщениеSkyPro, а можно поподробнее или ссылочку на пример/описание данного приема
Спасибо!

Автор - WeRiX
Дата добавления - 13.06.2014 в 14:52
SkyPro Дата: Пятница, 13.06.2014, 15:30 | Сообщение № 5
Группа: Друзья
Ранг: Старожил
Сообщений: 1206
Репутация: 255 ±
Замечаний: 0% ±

2010


skypro1111@gmail.com
 
Ответить
wild_pig Дата: Пятница, 13.06.2014, 18:24 | Сообщение № 6
Группа: Проверенные
Ранг: Обитатель
Сообщений: 517
Репутация: 97 ±
Замечаний: 0% ±

2003, 2013
может
[vba]
Код
.selectedindex = .....
[/vba]
 
Ответить
Сообщениеможет
[vba]
Код
.selectedindex = .....
[/vba]

Автор - wild_pig
Дата добавления - 13.06.2014 в 18:24
WeRiX Дата: Пятница, 13.06.2014, 19:59 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 44
Репутация: 4 ±
Замечаний: 0% ±

Excel 2013
Цитата
может
.selectedindex = .....

Правильно ли я понимаю, выбрать по какому-то уникальному индексу элемента, который где мне нащупать???
У меня на работе исходный код не открывается, пустая страница просто. Я методом научного тыка обычно делал))
А от SkyPro, эт надо попробовать конечно, со след недели получится тока, пока инфу собираю
 
Ответить
Сообщение
Цитата
может
.selectedindex = .....

Правильно ли я понимаю, выбрать по какому-то уникальному индексу элемента, который где мне нащупать???
У меня на работе исходный код не открывается, пустая страница просто. Я методом научного тыка обычно делал))
А от SkyPro, эт надо попробовать конечно, со след недели получится тока, пока инфу собираю

Автор - WeRiX
Дата добавления - 13.06.2014 в 19:59
wild_pig Дата: Пятница, 13.06.2014, 21:15 | Сообщение № 8
Группа: Проверенные
Ранг: Обитатель
Сообщений: 517
Репутация: 97 ±
Замечаний: 0% ±

2003, 2013
В выпадающем списке есть, как ни странно, список. Просто указать номер строки списка. Но проверять надо.
 
Ответить
СообщениеВ выпадающем списке есть, как ни странно, список. Просто указать номер строки списка. Но проверять надо.

Автор - wild_pig
Дата добавления - 13.06.2014 в 21:15
WeRiX Дата: Суббота, 14.06.2014, 17:00 | Сообщение № 9
Группа: Пользователи
Ранг: Новичок
Сообщений: 44
Репутация: 4 ±
Замечаний: 0% ±

Excel 2013
А есть ли возможность определять загрузку новой страницы, если сам адрес при этом не меняется и не работает это-->[vba]
Код
While IE.busy Or (IE.readyState <> 3): DoEvents: Wend
[/vba]выкручиваюсь слишком уж коряво
[vba]
Код

'While TextIWant <> Right(a, 4)
'strCountBody = oDoc2.body.innerText
'lStartPos = InStr(1, strCountBody, "[u]текст для поиска[/u]")
'lEndPos = lStartPos + 4
'TextIWant = Mid$(strCountBody, lStartPos + 22, lEndPos - lStartPos)
'Application.Wait (Now + TimeValue("0:00:01"))
'Wend
[/vba]

этим же способом проверяю наличие выскакивающих сообщений
--> м.б. их можно тоже как-нить красиво обнаружить
заранее спасибо


Сообщение отредактировал Serge_007 - Воскресенье, 15.06.2014, 00:46
 
Ответить
СообщениеА есть ли возможность определять загрузку новой страницы, если сам адрес при этом не меняется и не работает это-->[vba]
Код
While IE.busy Or (IE.readyState <> 3): DoEvents: Wend
[/vba]выкручиваюсь слишком уж коряво
[vba]
Код

'While TextIWant <> Right(a, 4)
'strCountBody = oDoc2.body.innerText
'lStartPos = InStr(1, strCountBody, "[u]текст для поиска[/u]")
'lEndPos = lStartPos + 4
'TextIWant = Mid$(strCountBody, lStartPos + 22, lEndPos - lStartPos)
'Application.Wait (Now + TimeValue("0:00:01"))
'Wend
[/vba]

этим же способом проверяю наличие выскакивающих сообщений
--> м.б. их можно тоже как-нить красиво обнаружить
заранее спасибо

Автор - WeRiX
Дата добавления - 14.06.2014 в 17:00
Мир MS Excel » Вопросы и решения » Excel и другие приложения » В IE выбор элемента из раскрывающегося списка (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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