Excel VBA结合Selenium提取网页隐藏标签表格数据求助

问题原因 #

你遇到的空值问题核心是默认显示「All」标签对应的表格，「Power Play」表格处于隐藏状态，直接通过绝对XPath查找元素会找不到或获取不到文本；另外绝对XPath依赖页面固定层级，一旦页面结构微调就会失效。

修正方案 #

核心步骤 #

1. 先切换到「Power Play」标签，让目标表格从隐藏变为可见
2. 使用相对定位（CSS选择器/相对XPath）替代绝对XPath，提升稳定性
3. 优化循环逻辑，加入元素存在性判断，避免报错

修正后的代码 #

Dim chrm As Selenium.ChromeDriver
Dim playTab As Selenium.WebElement
Dim rowElems As Selenium.WebElements
Dim rowElem As Selenium.WebElement
Dim sval As String, tval As String
Dim rnum As Integer

Set chrm = New Selenium.ChromeDriver
chrm.Get "你的目标球员页面URL" '替换为实际球员页面地址

' 切换到Power Play标签
On Error Resume Next
Set playTab = chrm.FindElementByLinkText("Power Play", timeout:=5000)
On Error GoTo 0
If Not playTab Is Nothing Then
    playTab.Click
    chrm.Wait 1000 '等待表格加载完成
End If

' 获取Power Play表格的所有行（stats_nhl_poss是该表格的固定ID）
Set rowElems = chrm.FindElementsByCss("#stats_nhl_poss tbody tr", timeout:=5000)

rnum = 1
For Each rowElem In rowElems
    ' 获取赛季文本
    sval = rowElem.FindElementByTag("th").Text
    ' 校验是否为有效赛季（前4位为数字）
    If Not (IsNumeric(Left(sval, 4)) And Len(sval) >= 4) Then
        Exit For
    End If
    
    ' 获取TOI列内容（第5个td，索引从1开始）
    tval = rowElem.FindElementByXPath("./td[5]").Text
    If tval <> "" Then
        ' 这里写入你的业务逻辑，比如写入Excel单元格
        ' Cells(rnum, 1).Value = sval
        ' Cells(rnum, 2).Value = tval
    End If
    rnum = rnum + 1
Next rowElem

Set chrm = Nothing

关键说明 #

• 标签切换：通过FindElementByLinkText精准定位「Power Play」标签并点击，确保目标表格可见
• 相对定位：使用表格固定IDstats_nhl_poss配合CSS选择器定位行，比绝对XPath更抗页面结构变化
• 错误处理：加入标签存在性判断，避免因页面加载慢或标签不存在抛出异常
• 循环终止逻辑：通过赛季文本的有效性判断终止循环，无需依赖固定行数

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