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