Selenium VBA для извлечения данных в Excel

Question

Сэр, у меня проблема с получением данных в Excel. У меня есть некоторый селен-код для получения данных из максимального номера страницы URL. в Excel.

вот URL

Public Sub URL_Max_Page()
Dim driver As New ChromeDriver
Dim URL As String

'open the page with the URL
    URL = "https://www.justdial.com/Rajkot/Software-Companies/page-60"

driver.Get [URL]

'get maximum page number in to excel

MX = driver.FindElementsById("paginationlastPageNum").Text

   ActiveSheet.Range("A7") = MX
   driver.Quit

End Sub

Я получаю некоторую ошибку .. Я не знаю, как заставить мой код работать

Answer 1

Не уверен, но попробуйте это

Public Sub URL_Max_Page()
    Dim driver As New ChromeDriver, aScriptParts, mx, sURL As String, sResp As String, sScriptPart As String, i As Long
    sURL = "https://www.justdial.com/Rajkot/Software-Companies/page-60"
    With driver
        .Get [sURL]
        sResp = .PageSource
        aScriptParts = Split(sResp, "<script", , vbTextCompare)

        For i = LBound(aScriptParts) + 1 To UBound(aScriptParts)
            sScriptPart = Split(aScriptParts(i), "</script", , vbTextCompare)(0)
            If InStr(sScriptPart, "paginationPageNum") Then
                mx = Split(Split(sScriptPart, "paginationPageNum = ")(1), ";")(0)
                Exit For
            End If
        Next i
        Debug.Print mx
        .Quit
    End With
End Sub