Pagination detection selenium VBA

Question

I am trying to detect the number of the total pages .. so as to deal with all the pages and here's my attempt

Sub Test()
    Dim bot As New WebDriver, ele As WebElement, sURL As String, x As Long
    sURL = "https://mercati.ilsole24ore.com/obbligazioni/titoli-di-stato/btp/1"
    bot.Start "Chrome", sURL
    bot.Get sURL
    '//*[@id="r_pagingArea"]/div/a[5]
    Set ele = bot.FindElementByXPath("//*[@id='r_pagingArea']/div/a[5]")
    For x = 1 To 10
        If ele.IsDisplayed Then
            Debug.Print "Page " & x
            ele.Click
            bot.ExecuteScript "window.focus();"
        Else
            Exit For
        End If
    Next x
    MsgBox "Total of " & x & " Pages"
End Sub

After the first page it goes to the next page but got an error after that as for the ele variable

What is the error message?

QHarr
– QHarr

2020-06-30 11:01:00 +00:00
Commented Jun 30, 2020 at 11:01 — QHarr
– QHarr, Commented Jun 30, 2020 at 11:01

QHarr · Accepted Answer · 2020-06-30 21:05:13Z

1

I would use a different approach and get the number of pages from

Dim numPages As Long
numPages = bot.FindElementsByCss("[href^='./']").count

Then do a loop from For i = 2 to numPages, and simply

bot.get "https://mercati.ilsole24ore.com/obbligazioni/titoli-di-stato/btp/" & i

I would avoid using your ele being set outside of loop as element may become stale after click event.

edited Jun 30, 2020 at 21:05

answered Jun 30, 2020 at 10:59

QHarr

84.5k14 gold badges58 silver badges105 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

Pagination detection selenium VBA

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related