处理XML实例-股票历史数据下载

处理XML实例-股票历史数据下载

时间 : 14-11-16 栏目 : 网页采集 作者 : 战战如疯 评论 : 0 点击 : 2,217 次

除非注明，文章均为 战战如疯 原创，转载请保留链接:http://www.zhanzhanrufeng.com/cat3/555.html，VBA交流群273624828。

这节再来看个XML格式数据的网抓实例。要抓取的网页是http://biz.finance.sina.com.cn/stock/flash_hq/kline_data.php?symbol=sz000001&end_date=20141116&begin_date=19910102，是股票sz000001平安银行的历史交易数据，在IE下打开可以看到该网页是一个XML格式的网页，它每行是一个节点，列之间是不分节点的。

Private Sub GetData1()
Dim tt As String, winhttp, t1, arr, i, v, objDOM, j, ns, n
Set winhttp = CreateObject("Microsoft.XMLHTTP")
With winhttp
.Open "GET", "http://biz.finance.sina.com.cn/stock/flash_hq/kline_data.php?symbol=sz000001&end_date=20141116&begin_date=19910102", False
.send
t1 = .responsetext
End With
Set objDOM = CreateObject("MSXML.DOMDocument")
objDOM.LoadXML (t1)
objDOM.async = False
Set ns = objDOM.SelectNodes("//content")
Set n = objDOM.SelectSingleNode("//content")
For i = 1 To ns.Length
For j = 1 To n.Attributes.Length
Cells(i, j) = ns.Item(i - 1).Attributes(j - 1).Text
Next
Next
Set objDOM = Nothing
End Sub

列长度用的是n.attributes.length，其它和之前讲过的课程是一样的。把股票代码换一下就可以取其他的股票了，加个循环就是所有股票历史数据，我这里就不演示了