VBA Selenium遍历无id的HTML无序列表提取数据写入Excel

问题根因 #

你现有代码的核心逻辑错误是元素层级定位错误：从提供的HTML结构来看，存储价格数据的<ul>标签和<h4>Pricing:</h4>是同级兄弟元素，而非h4的子元素。你代码中使用.FindElementByTag("h4").FindElementsByTag("ul")是在h4标签内部查找ul，自然无法匹配到任何元素，因此没有内容输出。

修复后可用代码 #

Sub test2()
    Dim driver As New WebDriver
    Dim rowc As Integer, cc As Integer
    rowc = 1 ' 写入起始行
    Application.ScreenUpdating = False
    driver.Start "chrome"
    driver.Get "https://www.fence-depot.com/fence/36-inch-auburn-residential-aluminum-fence/"
    ' 等待页面加载完成，单位为毫秒
    driver.Wait 1500
    
    ' 修正定位逻辑：直接在wys-right类的div下查找ul
    For Each li In driver.FindElementByClass("wys-right").FindElementsByTag("ul")
        For Each t In li.FindElementsByTag("li")
            ' 直接写入整条数据到第一列
            Sheet1.Cells(rowc, 1).Value = t.Text
            ' 如果需要拆分规格和价格到两列，替换上面一行为下面两行：
            ' Sheet1.Cells(rowc, 1).Value = t.FindElementByTag("span").Text ' 取规格说明
            ' Sheet1.Cells(rowc, 2).Value = t.FindElementByTag("strong").Text ' 取对应价格
            rowc = rowc + 1
        Next t
    Next li
    
    Application.ScreenUpdating = True
    ' 提取完成后可选择自动关闭浏览器
    ' driver.Quit
End Sub

补充优化建议 #

如果要适配网络波动场景，可以把固定时长等待替换为指定元素出现的条件等待，避免页面未加载完成就执行提取逻辑导致空数据。

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