SeleniumBasic定位表格与单元格

Rem 请手动添加引用 SeleniumBasic.tlb
Option Explicit
Private WD As SeleniumBasic.IWebDriver

Sub Baidu()
    On Error GoTo Err1
    Dim Service As SeleniumBasic.ChromeDriverService
    Dim Options As SeleniumBasic.ChromeOptions
    Set WD = New SeleniumBasic.IWebDriver
    Set Service = New SeleniumBasic.ChromeDriverService
    With Service
        .CreateDefaultService driverPath:="D:\Chrome-Selenium"
        .HideCommandPromptWindow = True
    End With
    Set Options = New SeleniumBasic.ChromeOptions
    With Options
        .BinaryLocation = "D:\Chrome-Selenium\Chrome-bin\chrome.exe"
    End With
    WD.New_ChromeDriver Service:=Service, Options:=Options
    WD.URL = "http://www.dpxq.com/hldcg/qishou_0_8.html"
    Dim table As SeleniumBasic.IWebElement
    Dim trs() As SeleniumBasic.IWebElement
    Dim tr As SeleniumBasic.IWebElement
    Dim tds() As SeleniumBasic.IWebElement
    Dim td As SeleniumBasic.IWebElement
    Set table = WD.FindElementsByTagName("table")(3)
    trs = table.FindElementsByTagName("tr")
    Dim i As Integer
    For i = 0 To UBound(trs)
        Set tr = trs(i)
        tds = tr.FindElementsByTagName("td")
        Set td = tds(1)
        Debug.Print td.Text
    Next i
    Dim a As SeleniumBasic.IWebElement
    Set a = table.FindElementByLinkText("王天一")
    a.Click
    Exit Sub
Err1:
    MsgBox Err.Description, vbCritical
End Sub

Sub Quit()
    WD.Quit
End Sub