请路过大侠指点，提取百度热搜实时脉搏数据

xiaofan1999

Sub GetBaiduHotSearch()
    Dim xmlHttp As Object
    Dim html As Object
    Dim hotSearch As Object
    Dim i As Integer

    Set xmlHttp = CreateObject("MSXML2.XMLHTTP")
    xmlHttp.Open "GET", "https://top.baidu.com/board", False
    xmlHttp.send

    Set html = CreateObject("htmlfile")
    html.body.innerHTML = xmlHttp.responseText

    Set hotSearch = html.getElementById("hotsearch-content-wrapper").getElementsByTagName("li") '这句错误,错误提示91

    For i = 0 To hotSearch.Length - 1
        Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Value = hotSearch(i).getElementsByTagName("a")(0).innerText
    Next i
End Sub

perfect131

看来没仔细分析
源码有个 s-data  json格式，里面的 homepage 就是你找的 实时脉搏数据


获取 json htmlfile解析就可以

xiaofan1999

perfect131 发表于 2023-4-23 18:40
看来没仔细分析
源码有个 s-data  json格式，里面的 homepage 就是你找的 实时脉搏数据

谢谢大侠指点！！！