Сведения на сайте помещаются на нескольких страницах. Первая соответственно грузится сразу. Помогите дописать код, чтобы он сымитировал нажатие цифры 4 мышкой, т.е.
перешел на страницу 4.
Сам написал только вот это
В Excel кидаем кнопку и код соответственно вставляем внутрь.
Вроде как надо у страници 1 убрать активность
<li class="active">
<a href="#page1">1</a>
а у соответственно страницы 4 ее добавить
<li class="active">
<a href="#page4">1</a>
Причем поиск надо провести скорее всего по <a href="#page4">4</a> потом перейти к его родителю и там уже заниматься <li class="active">.
В общем у меня в голове каша.
Выручайте.
Со всеми с кем общаюсь по заказу программ для работы с сайтами. данный пост на заказы не влияет. Заказы остаются в силе. :-)
перешел на страницу 4.
Сам написал только вот это
| Код |
|---|
Private Sub CommandButton1_Click()
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate ("http://ras.arbitr.ru")
Do While IE.readyState <> 4: DoEvents: Loop
Dim Doc As HTMLDocument
Set Doc = IE.document
Dim INP_Elements As IHTMLElementCollection
Dim INP As IHTMLElement
Set INP_Elements = Doc.getElementsByTagName("input")
For Each INP In INP_Elements
If INP.placeholder = "например, А50-5568/08" Then
INP.Select
INP.Value = "А40-16910/2014"
End If
Next INP
Dim Button_Elements As IHTMLElementCollection
Dim BtnE As IHTMLElement
Set Button_Elements = Doc.getElementsByTagName("button")
Button_Elements(0).Click
'++++++++++++++++++++++++++++++++++++++++++++++++++
'++++++++++++++++++++++++++++++++++++++++++++++++++
End Sub |
В Excel кидаем кнопку и код соответственно вставляем внутрь.
Вроде как надо у страници 1 убрать активность
<li class="active">
<a href="#page1">1</a>
а у соответственно страницы 4 ее добавить
<li class="active">
<a href="#page4">1</a>
Причем поиск надо провести скорее всего по <a href="#page4">4</a> потом перейти к его родителю и там уже заниматься <li class="active">.
В общем у меня в голове каша.
Выручайте.
Со всеми с кем общаюсь по заказу программ для работы с сайтами. данный пост на заказы не влияет. Заказы остаются в силе. :-)
Изменено: - 24.04.2016 22:29:33
