|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
各位大神,我在东方财富上抓下来的数据在比较深的节点处只有空白标签,没有内容,如下图
而网页上看下来对应的标签是有文本内容的
代码如下,大神们帮忙解惑一下,谢谢
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
|
|