VBA Selenium：ChromeDriver实例重复创建问题咨询

核心问题分析 #

1. GetObject无效原因：GetObject("Selenium.WebDriver")不适用于Selenium WebDriver，它不是标准COM自动化对象，无法通过GetObject获取已存在实例。
2. 实例重复创建：函数内声明driver会导致每次调用都新建实例，必须将driver设为模块级变量才能复用。
3. .Start与.Get误用：注释掉这两个方法会导致driver未初始化或未加载目标页面，直接调用ExecuteScript会报错。
4. window.focus()使用时机：必须在页面加载完成后调用，否则无有效窗口可聚焦。

修正后的代码实现 #

第一步：模块级变量声明 #

在VBA模块最顶部（所有函数/子过程之外）声明driver：

Option Explicit
Private driver As WebDriver ' 模块级变量，整个模块共享同一个实例

第二步：重构爬取函数 #

Public Function brngData_001(L_url As String, i As Integer, j As Integer) As String
    Dim ws As Worksheet
    Dim elementsClass As WebElements
    Dim targetElement As WebElement
    
    Set ws = ThisWorkbook.Worksheets("main")
    
    ' 初始化/复用driver实例
    If driver Is Nothing Then
        Set driver = New ChromeDriver
        driver.Start "chrome" ' 启动Chrome实例
    End If
    
    ' 检查当前URL是否与目标一致，不一致则跳转
    If driver.CurrentUrl <> L_url Then
        driver.Get L_url ' 加载目标页面
        driver.Wait 2000 ' 等待页面加载，可根据实际调整时长
        driver.ExecuteScript "window.focus();" ' 页面加载后再聚焦窗口
    End If
    
    ' 定位元素并写入数据
    On Error Resume Next ' 简化错误处理，可根据需求完善
    Set elementsClass = driver.FindElementsByClass("base-search-card__info")
    If j < elementsClass.Count Then ' 避免索引越界
        Set targetElement = elementsClass(j)
        ws.Cells(i, 1).Value = targetElement.FindElementByCss("h3").Text
        ws.Cells(i, 2).Value = targetElement.FindElementByCss("h4").Text
        ws.Cells(i, 3).Value = targetElement.FindElementByCss("span").Text
        ws.Cells(i, 4).Value = targetElement.FindElementByCss("time").Text
    End If
    On Error GoTo 0
End Function

第三步：添加实例清理子过程 #

使用完后手动调用该子过程关闭driver，避免残留Chrome进程：

Public Sub CloseDriver()
    If Not driver Is Nothing Then
        driver.Quit ' 彻底关闭浏览器实例
        Set driver = Nothing ' 释放变量
    End If
End Sub

关键要点说明 #

• 实例复用：模块级变量driver确保所有函数调用共享同一个Chrome实例，不会重复创建。
• .Start与.Get的正确用法：
  • .Start "chrome"仅在第一次初始化时调用，用于启动Chrome浏览器。
  • .Get L_url用于加载目标URL，每次切换页面时调用，无需重复启动浏览器。
• window.focus()：必须在.Get之后调用，此时浏览器已加载页面，窗口存在才能聚焦。如果爬取静态数据，该方法并非必需，可根据实际交互需求决定是否保留。
• 错误处理：添加索引越界判断，避免因元素数量不足导致报错；使用On Error Resume Next简化处理，也可自定义更严谨的错误捕获逻辑。

内容的提问来源于stack exchange，提问作者xlmaster