VBA+Selenium中FindElementsByTag数组索引越界问题求解

问题描述 #

我正在开展一项个人项目，需采集特定俱乐部足球比赛数据用于分析，使用VBA填充数据库时，调用FindElementsByTag出现数组索引越界错误。错误发生在该行代码：

chutesCasa = CDbl(navegadorChrome.FindElementsByTag("td")(63).Attribute("innerText"))

已尝试扩大数组范围但未解决问题，附上完整代码：

Sub searchGoogle()

    priLin = Sheets("base").Range("V1048576").End(xlUp).Row + 1
    jogoData = Sheets("base").Cells(priLin, 1).Value
    timeCasa = Sheets("base").Cells(priLin, 3).Value
    timeVisitante = Sheets("base").Cells(priLin, 4).Value

    Dim navegadorChrome As New Selenium.ChromeDriver
    
    Query = jogoData & " " & timeCasa & " " & timeVisitante
    search_string = Replace(Query, " ", "+")
    
    linkGoogle = "http://google.com/search?q=" & search_string
    
    navegadorChrome.Get (linkGoogle)
    
    navegadorChrome.FindElementByClass("YIikAd").Click
    
chutesCasa = CDbl(navegadorChrome.FindElementsByTag("td")(63).Attribute("innerText"))
    Sheets("base").Cells(priLin, 22).Value = chutesCasa
    
    chutesVisitante = CDbl(navegadorChrome.FindElementsByTag("td")(64).Attribute("innerText"))
    Sheets("base").Cells(priLin, 23).Value = chutesVisitante

    navegadorChrome.Quit

End Sub

解决方案 #

1. 先确认<td>元素的实际数量 #

索引越界的核心原因是页面中<td>元素总数不足64个（你用到了索引63、64）。先获取元素集合的长度，验证是否超出范围：

Dim tdElements As Selenium.WebElements
Set tdElements = navegadorChrome.FindElementsByTag("td")
' 打印元素总数到立即窗口（Ctrl+G打开）
Debug.Print "TD元素总数: " & tdElements.Count

运行后查看输出，就能明确是不是索引超过了实际元素数量。

2. 替换硬编码索引，使用语义化定位 #

固定索引极度依赖页面结构，一旦页面更新就会失效。建议根据数据的语义特征定位元素，比如：

• 先定位包含射门数据的表格
• 再通过行文本匹配找到目标数据行

示例代码（假设射门数据在class为stats-table的表格中，目标行首单元格为“射门”）：

navegadorChrome.FindElementByClass("YIikAd").Click
navegadorChrome.WaitUntil PageLoaded ' 等待页面加载完成

Dim statsTable As Selenium.WebElement
Set statsTable = navegadorChrome.FindElementByClass("stats-table")

Dim rows As Selenium.WebElements
Set rows = statsTable.FindElementsByTag("tr")

For Each row In rows
    If row.FindElementsByTag("td").Count > 0 Then
        If row.FindElementsByTag("td")(0).Text = "射门" Then
            chutesCasa = CDbl(row.FindElementsByTag("td")(1).Text)
            chutesVisitante = CDbl(row.FindElementsByTag("td")(2).Text)
            Exit For
        End If
    End If
Next row

Sheets("base").Cells(priLin, 22).Value = chutesCasa
Sheets("base").Cells(priLin, 23).Value = chutesVisitante

3. 添加错误处理机制 #

避免程序因元素定位失败直接崩溃，同时捕获错误信息：

On Error Resume Next
chutesCasa = CDbl(navegadorChrome.FindElementsByTag("td")(63).Attribute("innerText"))
If Err.Number <> 0 Then
    Debug.Print "获取主队射门数失败: " & Err.Description
    chutesCasa = 0 ' 设置默认值或其他处理逻辑
End If
On Error GoTo 0

4. 确保页面完全加载 #

点击广告链接后，页面可能未完全渲染就执行元素获取操作，导致元素数量不足。添加等待逻辑：

navegadorChrome.FindElementByClass("YIikAd").Click
' 等待页面加载完成（推荐）
navegadorChrome.WaitUntil PageLoaded
' 或等待固定时间（应急方案，不推荐长期使用）
' navegadorChrome.Wait 3000

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