Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Работа с элементами веб-страницы через WebBrowser
 
#1
21.01.2011 16:18:44
Пытаюсь через WebBrowser работать с формой на веб-странице .Но к одному элементу ни как не могу обратиться , такое ощущение что он не пренадлежит к форме.  
 
  Set Wbform = WebBrowser1.Document.forms(Val(4))  
  For Each el In Wbform  
       If el.ID = "i_AdvPerPage" Then el.Value = 100: Exit For  
  Next el  
 
"i_AdvPerPage" - количество листов на даннной форме, по умолчанию = 50  
 
в html коде обнаружил следующие    
$('#i_AdvPerPage').change(function() {  
realty.setCookie('list_col_pp', this.value, 'Thu, 01-Jan-2019 00:00:01 GMT','/');realty.requestPage('/realty/sell/commerce/office/1.php?1order=DateUpdate&dir=desc&price_unit=1&expand=0&PriceUnit=1­');  
 
возможно он через скрипт работает отдельно от формы передаваю данные в Cookie  
 
Если кто-ниб знает решение этой интересной проблемы - поскажите  
Приклеплен файл (загрузка веб-страницы жрет немного ресурсов, доверенный, без вирей)
 
 
 
#2
21.01.2011 21:36:44
Вставить текст для поиска в поле можно так:  
 
Private Sub B2_Click()  
   Set doc = WebBrowser1.Document  
   doc.getElementsByName("text").Item(0).Value = "Текст для поиска"  
End Sub
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#3
23.01.2011 17:24:12
{quote}{login=EducatedFool}{date=21.01.2011 09:36}{thema=}{post}Вставить текст для поиска в поле можно так:  
 
Private Sub B2_Click()  
   Set doc = WebBrowser1.Document  
   doc.getElementsByName("text").Item(0).Value = "Текст для поиска"  
End Sub{/post}{/quote}  
 
Спасибо, попробую, но не раньше понедельника
 
 
 
#4
24.01.2011 10:59:12
Проверил -  все получилось. Еще раз спасибо EducatedFool.  
Тема закрыта.
 
 
 
#5
02.03.2012 08:28:07
Странно, не работает... Что поменялось?
 
 
 
#6
02.03.2012 09:28:06
что именно не работает?    
кнопка запрос что делала?    
в коде  
If el.ID = "i_AdvPerPage" Then el.Value = 100: Exit For  
это означал показывать 100 результатов поиска или что?  
 
"86266"
 
 
 
#7
02.03.2012 09:51:05
{quote}{login=DMK67}{date=02.03.2012 08:28}{thema=}{post}Странно, не работает... Что поменялось?{/post}{/quote}  
 
http://www.planetaexcel.ru/forum.php?thread_id=38057  
Здесь пример выкоадывл, с заполнением формы.  
 
1 - кодом перебираете все элементы на старнице и вычисляете Id нужного элемента, предварительно в фому что то в пишите    
   
 Dim x As Long  
   On Error Resume Next  
   For x = 0 To 5000  
       Debug.Print webbr.Document.All.Item(x).value & "-" & x  
   Next x  
   On Error GoTo 0  
2 -можно поробовать помотреть код страницы (в браузере в обычном) и определить имя интересующего элемента
 
 
 
Страницы: 1
Читают тему
Наверх