使用 VBA 抓取 HTML 表格

Question

使用下面的脚本，我成功地将 HTML 表中的值从以下链接返回到工作簿中：link1 和 link2。但是当我尝试对以下link3 使用相同的脚本时，它不会返回任何内容。我认为这是由于网站上存在复杂的 HTML 表格结构。我相信由于表格的复杂性，代码需要调整 .Item(0) 数字，请指教。

Sub Web_Data()
    Dim http As New XMLHTTP60, html As New HTMLDocument
    Dim topic As HTMLHtmlElement

    With http
        .Open "GET", "http://www.dolphinfitness.co.uk/en/optimum-nutrition/", False
        .send
        html.body.innerHTML = .responseText
    End With

    For Each topic In html.getElementsByClassName("category-products")
        With topic.getElementsByClassName("product-name")
            If .Length Then x = x + 1: Cells(x, 1) = .Item(0).innerText
        End With
        With topic.getElementsByClassName("price")
            If .Length Then Cells(x, 2) = .Item(0).innerText
        End With
    Next topic
End Sub

Answer 1

您在帖子中提到的网站在解析不同产品的价格时有点棘手。很少有产品有原价，其余的都有特价。在您对表达式应用一种技术之前，您不能同时解析它们。我已经编写了一个能够处理它们的 xpath，你将能够得到它们。这是脚本：

Sub Body_Building()
    Dim driver As New WebDriver, post As Object

    With driver
        .Start "chrome", "http://www.bodybuildingwarehouse.co.uk"
        .Get "/optimum-nutrition?limit=all"
    End With

    On Error Resume Next
    For Each post In driver.FindElementsByClass("grid-info")
        i = i + 1: Cells(i, 1) = post.FindElementByClass("product-name").Text
        Cells(i, 2) = post.FindElementByXPath(".//span[@class='regular-price']//span[@class='price']|.//p[@class='special-price']//span[@class='price']").Text
    Next post
End Sub

如果您在执行脚本时遇到任何问题，请告诉我。顺便说一句，与 vba 绑定的硒没有任何属性可以避免“下一个错误恢复”，所以我把它放在循环之前。谢谢。