SeleniumBasic的下载（VBA中调用Selenium）

cjy964

cb.SwitchToNextWindow   可以切换浏览器窗口

离去的都是风景

执行Edge浏览器的时候，弹出Cannot start the driver service on http://localhost:53116, 楼主，能帮我解释一下什么原因吗？
Private WD As SeleniumBasic.IWebDriver
Sub Baidu()
    On Error GoTo Err1
    Dim Service As SeleniumBasic.EdgeDriverService
    Dim Options As SeleniumBasic.EdgeOptions
    Set WD = New SeleniumBasic.IWebDriver
    Set Service = New SeleniumBasic.EdgeDriverService
    With Service
'        .CreateDefaultService driverPath:="E:\Selenium\Drivers", driverexecutablefilename:="MicrosoftWebDriver.exe"
        .CreateDefaultService driverPath:="C:\Program Files (x86)\Microsoft\Edge\Application", driverexecutablefilename:="msedge.exe"
        
        .HideCommandPromptWindow = True
    End With
    Set Options = New SeleniumBasic.EdgeOptions
    With Options
        .StartPage = "https://www.cnblogs.com/ryueifu-VBA/"
    End With
    WD.New_EdgeDriver Service:=Service, Options:=Options
    WD.Navigate_GoToUrl "https://www.baidu.com"
    Dim form As SeleniumBasic.IWebElement
    Dim keyword As SeleniumBasic.IWebElement
    Dim button As SeleniumBasic.IWebElement
    Set form = WD.FindElementById("form")
    Set keyword = form.FindElementById("kw")
    keyword.Clear
    keyword.SendKeys "好看视频"
    Set button = form.FindElementById("su")
    button.Click
    Debug.Print WD.Title, WD.URL
    Debug.Print WD.PageSource
    MsgBox "下面退出浏览器。"
    WD.Quit
    Exit Sub
Err1:
    MsgBox Err.Description, vbCritical
End Sub

perfect131

selenium chromedriver官方下载地址
https://club.excelhome.net/forum ... ;extra=#pid11526319

perfect131

perfect131 发表于 2024-6-21 13:03
selenium chromedriver官方下载地址
https://club.excelhome.net/forum.php?mod=viewthread&tid=1695406&p ...

selenium后期

sunwusong

有没有新的版本 我的isdisplayed灰色的   不知道是不可用还是不知道如何用

3388630145

Sub 网页抓取selenium()
    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\Chrome-bin"
        .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.bizwar.cn/main/login"
WD.FindElementByName("name").SendKeys "9@99"
WD.FindElementByName("password").SendKeys
WD.FindElementByName("commit").Click
WD.url = "http://www.bizwar.cn/games/decision?gameid=328772&mode=old&part=last_pay&periodid=3190913&teamid=561206&type=raw"
WD.SwitchTo.Alert.Accept
Dim rowc, tr, td, columnC As Integer

rowc = 1
For Each tr In WD.FindElementByXPath("/html/body/div/div[4]/div/div/div[2]/div[1]/form/table/tbody/tr/td[2]/table").FindElementsByTagName("tr")
    columnC = 1
        For Each td In tr.FindElementsByTagName("td")
            Sheet3.Cells(rowc, columnC).Value = td.Text
            columnC = columnC + 1
        Next td
    rowc = rowc + 1
Next tr
End Sub

请问一下“For Each tr In WD.FindElementByXPath("/html/body/div/div[4]/div/div/div[2]/div[1]/form/table/tbody/tr/td[2]/table").FindElementsByTagName("tr")”这段代码在执行时提示变量使用了一个不支持的自动化变量，请问这个怎么解决。

Olive2023

3388630145 发表于 2024-8-25 23:17
Sub 网页抓取selenium()
    Dim Service As SeleniumBasic.ChromeDriverService
    Dim Options As Sel ...

dim tr 就可以了，不要指定类型

Askinofblue

爬虫还是看表堆堆怎样操作selenium的

h2016

网页抓取留着