vba code to navigate to next page in webpage

saransh · Mar 15th 2017

Hi All,

I want a vba code to navigate to next page in webpage.

my html code:

HTML

</ul><li ng-class="{disabled:pagerObj.currentPage === 1}" ng-click="setPage(pagerObj.currentPage - 1);" class="disabled">Previous</li><!-- ngRepeat: page in pagerObj.pages track by $index --><li ng-class="{active:pagerObj.currentPage === page}" ng-repeat="page in pagerObj.pages track by $index" ng-click="setPage(page, $event);" class="ng-binding ng-scope active">1</li><!-- end ngRepeat: page in pagerObj.pages track by $index --><li ng-class="{active:pagerObj.currentPage === page}" ng-repeat="page in pagerObj.pages track by $index" ng-click="setPage(page, $event);" class="ng-binding ng-scope">2</li><!-- end ngRepeat: page in pagerObj.pages track by $index --><li ng-class="{active:pagerObj.currentPage === page}" ng-repeat="page in pagerObj.pages track by $index" ng-click="setPage(page, $event);" class="ng-binding ng-scope">3</li><!-- end ngRepeat: page in pagerObj.pages track by $index --><li ng-class="{disabled:pagerObj.currentPage === pagerObj.totalPages}" ng-click="setPage(pagerObj.currentPage + 1);">Next</li></ul></div></pagination>

saransh · Mar 15th 2017

Re: vba code to navigate to next page in webpage

bump pls, can somebody help!

Code

</ul>
<li ng-class="{disabled:pagerObj.currentPage === 1}" ng-click="setPage(pagerObj.currentPage - 1);" class="disabled">Previous</li>
<!-- ngRepeat: page in pagerObj.pages track by $index -->
<li ng-class="{active:pagerObj.currentPage === page}" ng-repeat="page in pagerObj.pages track by $index" ng-click="setPage(page, $event);" class="ng-binding ng-scope active">1</li>
<!-- end ngRepeat: page in pagerObj.pages track by $index -->
<li ng-class="{active:pagerObj.currentPage === page}" ng-repeat="page in pagerObj.pages track by $index" ng-click="setPage(page, $event);" class="ng-binding ng-scope">2</li>
<!-- end ngRepeat: page in pagerObj.pages track by $index -->
<li ng-class="{active:pagerObj.currentPage === page}" ng-repeat="page in pagerObj.pages track by $index" ng-click="setPage(page, $event);" class="ng-binding ng-scope">3</li>
<!-- end ngRepeat: page in pagerObj.pages track by $index -->
<li ng-class="{disabled:pagerObj.currentPage === pagerObj.totalPages}" ng-click="setPage(pagerObj.currentPage + 1);">Next</li>
</ul>
</div>
</pagination>

Display More

John_w · Mar 16th 2017

Re: vba code to navigate to next page in webpage

What have you tried? At least post some code showing what you've tried.

Maybe something like this - untested, uncompiled - assumes the IE variable is the InternetExplorer object loaded with the page and the VBA project references MS HTML Object Library.

Code

Dim lis as IHTMLElementCollection
Dim nextLi as HTMLLIElement, i as long
Set lis = IE.document.getElementsByTagName("LI")
set nextLi = Nothing
i = 0
While i < lis.length and nextli is nothing
    if lis(i).innerText = "Next" Then set nextLi = lis(i)
    i = i + 1
wend
if not nextLi is nothing then
    nextLi.click
end if

Display More

saransh · Mar 16th 2017

Re: vba code to navigate to next page in webpage

Hi John_w,

Thanks for the reply!

I have a vba code with the help of this code I am able to get data from web page but I am able to get data from one page only if there is more than one page then I want navigate to next page if they exist move to the next page and get data and repeat.

For some security reason i am not able to provide web Address

Here is my vba code:

Code

Private Sub CommandButton1_Click()
Set IE = CreateObject("InternetExplorer.application")
 IE.Visible = True
  IE.navigate "My web Address1"
   Do
    If IE.readyState = 4 Then
     IE.Visible = True
      Exit Do
       Else
        DoEvents
    End If
Loop
   IE.document.forms(0).all("userlogin").Value = TextBox1.Value
     IE.document.forms(0).all("password").Value = TextBox2.Value
      IE.document.forms(0).submit
       While IE.Busy
        DoEvents
         Wend
          Unload Me
'=========================================================================
Dim lastRow As Long
lastRow = Sheets("Input").Range("A" & Rows.Count).End(xlUp).Row
For a = 2 To lastRow
Set IE = CreateObject("internetexplorer.application")
  IE.Visible = True
   IE.navigate "My web Address2"
    While IE.Busy
     DoEvents
      Wend
       Application.Wait (Now + TimeValue("0:00:04"))
         IE.document.getElementById("searchid").Value = "prop_id"
           IE.document.body.getElementsByTagName("SELECT").Item(0).selectedIndex = 3
            IE.document.body.getElementsByTagName("SELECT").Item(0).FireEvent ("onchange")
              IE.document.forms(0).all("optionid").Value = Sheets("Input").Range("A" & a)
                IE.document.forms(0).submit
                 While IE.Busy
                DoEvents
               Wend
             Application.Wait (Now + TimeValue("0:00:04"))
          Set doc = IE.document
        Set hcol = doc.getElementsByTagName("textarea")
       For Each Text In hcol
    If Text.ID = "access_reason" Then
 Text.Value = "Revew................................................................"
Exit For
End If
Next




With IE.document
    Set elems = .getElementsByTagName("input")
    For Each e In elems
        If (e.getAttribute("value") = "Login to my account of client") Then
            e.Click
            Exit For
        End If
    Next e
End With
While IE.Busy
DoEvents
Wend
IE.Quit
Sheets("All Listing").Select
Range("A1") = "Leads"
Range("B1") = "First Name"
Range("C1") = "Phone"
Range("D1") = "Email"
Range("E1") = "Description"
Range("F1") = "Follow Up Date"
Range("G1") = "Location Preference"
Range("H1") = "Listing ID"
Range("I1") = "Status"
Sheets("All Leads").Select
Range("A1") = "Leads"
Range("B1") = "First Name"
Range("C1") = "Phone"
Range("D1") = "Email"
Range("E1") = "Description"
Range("F1") = "Follow Up Date"
Range("G1") = "Location Preference"
Range("H1") = "Status"
Range("I1") = "Search Agent Name"
'Range("J1") = "Listing ID"
'All Listing
Set IE = CreateObject("internetexplorer.application")
IE.Visible = True
IE.navigate "My web Address3"
While IE.Busy
DoEvents
Wend
Application.Wait (Now + TimeValue("0:00:04"))
On Error Resume Next
Set doc = IE.document
Dim dd As Variant
dd = doc.getElementsByClassName("tupple ng-scope")(0).innerText
Sheets("All Listing").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd




Dim dd1 As Variant
dd1 = doc.getElementsByClassName("tupple ng-scope")(1).innerText
Sheets("All Listing").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd1




Dim dd2 As Variant
dd2 = doc.getElementsByClassName("tupple ng-scope")(2).innerText
Sheets("All Listing").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd2




Dim dd3 As Variant
dd3 = doc.getElementsByClassName("tupple ng-scope")(3).innerText
Sheets("All Listing").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd3




Dim dd4 As Variant
dd4 = doc.getElementsByClassName("tupple ng-scope")(4).innerText
Sheets("All Listing").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd4




Dim dd5 As Variant
dd5 = doc.getElementsByClassName("tupple ng-scope")(5).innerText
Sheets("All Listing").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd5




Dim dd6 As Variant
dd6 = doc.getElementsByClassName("tupple ng-scope")(6).innerText
Sheets("All Listing").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd6




Dim dd7 As Variant
dd7 = doc.getElementsByClassName("tupple ng-scope")(7).innerText
Sheets("All Listing").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd7




Dim dd8 As Variant
dd8 = doc.getElementsByClassName("tupple ng-scope")(8).innerText
Sheets("All Listing").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd8




Dim dd9 As Variant
dd9 = doc.getElementsByClassName("tupple ng-scope")(9).innerText
Sheets("All Listing").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd9




Dim dd10 As Variant
dd10 = doc.getElementsByClassName("tupple ng-scope")(10).innerText
Sheets("All Listing").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd10




Dim dd11 As Variant
dd11 = doc.getElementsByClassName("tupple ng-scope")(11).innerText
Sheets("All Listing").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd11




Dim dd12 As Variant
dd12 = doc.getElementsByClassName("tupple ng-scope")(12).innerText
Sheets("All Listing").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd12




Dim dd13 As Variant
dd13 = doc.getElementsByClassName("tupple ng-scope")(13).innerText
Sheets("All Listing").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd13




Dim dd14 As Variant
dd14 = doc.getElementsByClassName("tupple ng-scope")(14).innerText
Sheets("All Listing").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd14




Dim dd15 As Variant
dd15 = doc.getElementsByClassName("tupple ng-scope")(15).innerText
Sheets("All Listing").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd15




Dim dd16 As Variant
dd16 = doc.getElementsByClassName("tupple ng-scope")(16).innerText
Sheets("All Listing").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd16




Dim dd17 As Variant
dd17 = doc.getElementsByClassName("tupple ng-scope")(17).innerText
Sheets("All Listing").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd17




Dim dd18 As Variant
dd18 = doc.getElementsByClassName("tupple ng-scope")(18).innerText
Sheets("All Listing").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd18




Dim dd19 As Variant
dd19 = doc.getElementsByClassName("tupple ng-scope")(19).innerText
Sheets("All Listing").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd19




Dim dd20 As Variant
dd20 = doc.getElementsByClassName("tupple ng-scope")(20).innerText
Sheets("All Listing").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd20








Dim dd21 As Variant
dd21 = doc.getElementsByClassName("tupple ng-scope")(21).innerText
Sheets("All Listing").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd21




Dim dd22 As Variant
dd22 = doc.getElementsByClassName("tupple ng-scope")(22).innerText
Sheets("All Listing").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd22




Dim dd23 As Variant
dd23 = doc.getElementsByClassName("tupple ng-scope")(23).innerText
Sheets("All Listing").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd23




Dim dd24 As Variant
dd24 = doc.getElementsByClassName("tupple ng-scope")(24).innerText
Sheets("All Listing").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd24




Dim dd25 As Variant
dd25 = doc.getElementsByClassName("tupple ng-scope")(25).innerText
Sheets("All Listing").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd25
'Next Page








'===================================================




While IE.Busy
DoEvents
Wend
IE.Quit
'All Leads
Set IE = CreateObject("internetexplorer.application")
IE.Visible = True
IE.navigate "My web Address4"
While IE.Busy
DoEvents
Wend
Application.Wait (Now + TimeValue("0:00:04"))
On Error Resume Next
Set doc = IE.document
Dim dd26 As Variant
dd26 = doc.getElementsByClassName("tupple ng-scope")(0).innerText
Sheets("All Leads").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd26




Dim dd27 As Variant
dd27 = doc.getElementsByClassName("tupple ng-scope")(1).innerText
Sheets("All Leads").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd27




Dim dd28 As Variant
dd28 = doc.getElementsByClassName("tupple ng-scope")(2).innerText
Sheets("All Leads").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd28




Dim dd29 As Variant
dd29 = doc.getElementsByClassName("tupple ng-scope")(3).innerText
Sheets("All Leads").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd29




Dim dd30 As Variant
dd30 = doc.getElementsByClassName("tupple ng-scope")(4).innerText
Sheets("All Leads").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd30




Dim dd31 As Variant
dd31 = doc.getElementsByClassName("tupple ng-scope")(5).innerText
Sheets("All Leads").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd31




Dim dd32 As Variant
dd32 = doc.getElementsByClassName("tupple ng-scope")(6).innerText
Sheets("All Leads").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd32




Dim dd33 As Variant
dd33 = doc.getElementsByClassName("tupple ng-scope")(7).innerText
Sheets("All Leads").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd33




Dim dd34 As Variant
dd34 = doc.getElementsByClassName("tupple ng-scope")(8).innerText
Sheets("All Leads").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd34




Dim dd35 As Variant
dd35 = doc.getElementsByClassName("tupple ng-scope")(9).innerText
Sheets("All Leads").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd35




Dim dd36 As Variant
dd36 = doc.getElementsByClassName("tupple ng-scope")(10).innerText
Sheets("All Leads").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd36




Dim dd37 As Variant
dd37 = doc.getElementsByClassName("tupple ng-scope")(11).innerText
Sheets("All Leads").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd37




Dim dd38 As Variant
dd38 = doc.getElementsByClassName("tupple ng-scope")(12).innerText
Sheets("All Leads").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd38




Dim dd39 As Variant
dd39 = doc.getElementsByClassName("tupple ng-scope")(13).innerText
Sheets("All Leads").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd39




Dim dd40 As Variant
dd40 = doc.getElementsByClassName("tupple ng-scope")(14).innerText
Sheets("All Leads").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd40




Dim dd41 As Variant
dd41 = doc.getElementsByClassName("tupple ng-scope")(15).innerText
Sheets("All Leads").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd41




Dim dd42 As Variant
dd42 = doc.getElementsByClassName("tupple ng-scope")(16).innerText
Sheets("All Leads").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd42




Dim dd43 As Variant
dd43 = doc.getElementsByClassName("tupple ng-scope")(17).innerText
Sheets("All Leads").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd43




Dim dd44 As Variant
dd44 = doc.getElementsByClassName("tupple ng-scope")(18).innerText
Sheets("All Leads").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd44




Dim dd45 As Variant
dd45 = doc.getElementsByClassName("tupple ng-scope")(19).innerText
Sheets("All Leads").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd45




Dim dd46 As Variant
dd46 = doc.getElementsByClassName("tupple ng-scope")(20).innerText
Sheets("All Leads").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd46




Dim dd47 As Variant
dd47 = doc.getElementsByClassName("tupple ng-scope")(21).innerText
Sheets("All Leads").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd47




Dim dd48 As Variant
dd48 = doc.getElementsByClassName("tupple ng-scope")(22).innerText
Sheets("All Leads").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd48




Dim dd49 As Variant
dd49 = doc.getElementsByClassName("tupple ng-scope")(23).innerText
Sheets("All Leads").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd49




Dim dd50 As Variant
dd50 = doc.getElementsByClassName("tupple ng-scope")(24).innerText
Sheets("All Leads").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd50




Dim dd51 As Variant
dd51 = doc.getElementsByClassName("tupple ng-scope")(25).innerText
Sheets("All Leads").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd51
While IE.Busy
DoEvents
Wend




Require vba code for next page




IE.Quit
Next a




End Sub

Display More

vba code to navigate to next page in webpage

Participate now!

Share