VBA网抓响应数据不完整

lbs735690575

各位大神，我在东方财富上抓下来的数据在比较深的节点处只有空白标签，没有内容，如下图

而网页上看下来对应的标签是有文本内容的

代码如下，大神们帮忙解惑一下，谢谢

Sub get_stock()
Dim oHtml As XMLHTTP60, URL As String, strText As String
Set oHtml = CreateObject("MSXML2.XMLHTTP")
Set oDom = CreateObject("htmlfile")
URL = "http://quote.eastmoney.com/center/gridlist.html"

With oHtml
    .Open "GET", URL, False
    .send
    oDom.body.innerHTML = .responseText

    Do While .readyState <> 4
        DoEvents
    Loop   
End With

Open "C:\Users\Administrator\Desktop\temp.txt" For Output As #1
    Write #1, strText
Close #1
End Sub

perfect131

动态源码 跟 静态源码 有区别，不要搞混了

你在 元素里看到的是 动态源码（js渲染后的结果）
而代码只能获取ctrl+u显示的静态源码，所以你获取的结果并没有问题

ctrl+u 源码


元素 （动态源码）（js渲染后的源码）


如果你想获取动态源码 那只能搞自动化 ie，selenium，selenium cdp


ie获取 元素里的动态源码
https://club.excelhome.net/forum ... ead&tid=1619327

lbs735690575

perfect131 发表于 2024-1-1 14:58
动态源码 跟 静态源码 有区别，不要搞混了

你在 元素里看到的是 动态源码（js渲染后的结果）

太厉害了，谢谢

wang-way

你还是要找到对的地址