0

我正在尝试做一些与以下现有示例非常相似的事情: 参考问题

除了一个小例外,我只需要将此列表的评分评论数拉到Excel 中的 2 个单独的单元格中。

在不提取整个站点数据的情况下,我将如何做到这一点?看来我需要调用特定的 html 标记或使用命令来执行此操作,但我不知道它是什么。

请帮忙!

4

1 回答 1

0

此代码将检索您请求的两条信息并将它们放在活动表上

Sub test()
    my_url = "http://www.yelp.com/biz/if-boutique-new-york"
    Set html_doc = CreateObject("htmlfile")
    Set xml_obj = CreateObject("MSXML2.XMLHTTP")

    xml_obj.Open "GET", my_url, False
    xml_obj.send
    html_doc.body.innerhtml = xml_obj.responseText
    Set xml_obj = Nothing

    Set Results = html_doc.body.getElementsByTagName("i")
    For Each itm In Results
        If InStr(1, itm.outerhtml, "star-img", vbTextCompare) > 0 Then
            numb_stars = itm.getAttribute("title")
            Exit For
        Else
        End If
    Next

    Set Results = html_doc.body.getElementsByTagName("span")
    For Each itm In Results
        If InStr(1, itm.outerhtml, "reviewCount", vbTextCompare) > 0 Then
            numb_rev = itm.innertext
            Exit For
        Else
        End If
    Next

    ActiveCell = numb_stars
    ActiveCell.Offset(1, 0) = numb_rev
End Sub
于 2014-04-23T15:08:36.773 回答