SeleniumBasic的下载（VBA中调用Selenium）

伶俐的毛豆

劉博士加油，我喜愛您的技術支持

ryueifu2

伶俐的毛豆 发表于 2022-6-28 18:19
劉博士加油，我喜愛您的技術支持

SeleniumBasic更详细的介绍
《Excel VBA编程开发》上下册

https://item.jd.com/10059109897790.html


https://item.jd.com/10059111327006.html

gwjkkkkk

谢谢楼主分享。。。

xq4u

这个太强大了，请教一下刘博士，在您的博客《SeleniumBasic 3.141.0.0 - 在VBA中操作浏览器》高级技术之三：《SeleniumBasic操作运行中的Chrome浏览器》这一篇文章中，在执行“WD.New_ChromeDriver Service:=Service, Options:=Options”这一句之前，能否判断调试的Chrome浏览器是否已经打开呢。

Jerry丶

博士，已申请添加您博客中无需管理员权限的那个群，望同意一下，谢谢

blackttea1

注册后，出现 此对话框：Microsoft Excel
The file E:\Selenium\Drivers\MicrosoftWebDriver.exe does not exist.The driver can be downloaded at
http://go.microsoft.com/fwlink/?Linkld=619687
不知怎么回事，我是win 10  edge浏览器，请达人指点下，谢谢

ckfy

太牛了，顶一下

voodoo2008

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:="E:\Selenium\Drivers"
        .HideCommandPromptWindow = True
    End With
    Set Options = New SeleniumBasic.ChromeOptions
    With Options
        .BinaryLocation = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
        .DebuggerAddress = "127.0.0.1:9999"
    End With
    WD.New_ChromeDriver Service:=Service, Options:=Options
    WD.URL = "https://www.baidu.com"
End Sub

哪位大神能把上面这段刘博士的VBA范例改写为vbs代码呀？

lcjy11185

学习并试用下

16381584

voodoo2008 发表于 2022-10-5 20:46
Private WD As SeleniumBasic.IWebDriver
Sub Baidu()
    On Error GoTo Err1

我研究了很久，也是想把这段改写成VBS，搞不定，问了博士本人，他也不回复