将 Edge / Chrome 连接到 VBA

Question

我有一个 VBA 代码，我一直用它来打开 Internet Explorer，复制特定网站上的信息，然后粘贴到单元格中。现在的问题是该网站现在不再使用 IE。

我正在尝试调整此代码以将其与 Edge 和/或 Chrome 一起使用（我已经安装了 Selenium），但实际上我正在努力解决它。

有人可以帮我调整一下代码吗？

Option Explicit


Sub Test()


    Dim IE As Object
    On Error Resume Next
    Application.DisplayAlerts = False
    
    Sheets("Sheet3").Select
    Range("A1:A1000") = "" ' erase previous data
    Range("A1").Select


    Set IE = CreateObject("InternetExplorer.Application")
        With IE
            .Visible = True
            .Navigate "https://google.com" ' should work for any URL
            Do Until .ReadyState = 4: DoEvents: Loop
        End With


        IE.ExecWB 17, 0 '// SelectAll
        IE.ExecWB 12, 2 '// Copy selection
        ActiveSheet.PasteSpecial Format:="Text", link:=False, DisplayAsIcon:=False
        Range("A1").Select
        IE.Quit

    Application.DisplayAlerts = True
End Sub

如何将 IE 提及切换到 Edge 或 Chrome 提及？比如把IE换成objEdge等等。

Answer 1

您需要使用 SeleniumBasic 在 VBA 中自动化 Edge。 SeleniumBasic 是一个基于 Selenium 的浏览器自动化框架，适用于 VB.Net、VBA 和 VBScript。

您可以按照以下步骤使用 SeleniumBasic 自动化 Edge 浏览器：

1. 从this link 下载最新版本的 SeleniumBasic v2.0.9.0 并安装。
2. 从this link下载对应版本的Edge WebDriver。
3. 在我的情况下找到SeleniumBasic的路径C:\Users\%username%\AppData\Local\SeleniumBasic（也可能在此路径C:\Program Files\SeleniumBasic中），将Edge WebDriver msedgedriver.exe复制到此路径。
4. 将msedgedriver.exe 重命名为edgedriver.exe。
5. 打开 Excel 并准备编写 VBA 代码。
6. 在VBA代码界面，点击Tools > References，添加Selenium Type Library引用，点击OK保存。
7. VBA代码示例（可根据需要更改）：

   Public Sub Selenium()
       Dim bot As New WebDriver
       bot.Start "edge", "https://www.google.com"
       bot.Get "/"
       bot.Wait 5000
       bot.Quit
   End Sub
   

参考链接：VBA Script to convert from internet explorer to Edge or chrome browser