|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
onlycxb 发表于 2015-3-10 07:46
6.外汇行情
7楼第12句循环代码中的i是否应该改为n或其他非i变量?——这样方可获取六大银行(中国银行、农业银行、工商银行、建设银行、交通银行、招商银行)的外汇行情数据,否则只能获取中国银行的外汇行情数据:- Sub 更新外汇行情数据2()
- Dim html As Object, arrdata(1 To 100000, 1 To 8), Db, Url$
- Dim i%, j%, tr, td
- Url = "http://quote.eastmoney.com/center/forexlist.html"
- Set html = CreateObject("htmlfile")
- With CreateObject("msxml2.xmlhttp")
- .Open "GET", Url, False
- .send
- html.body.innerhtml = StrConv(.ResponseBody, vbUnicode, &H804)
- End With
- Set Db = html.all.tags("table")
- For n = 0 To Db.Length - 1
- If Db(n).classname = "data-table" Then
- arrdata(n + i + 1, 1) = html.all.tags("ul")("yhpj").ChildNodes(n).innertext
- For Each tr In Db(n).Rows
- i = i + 1
- j = 0
- For Each td In tr.Cells
- j = j + 1
- arrdata(n + i + 1, j) = td.innertext
- Next td
- Next tr
- End If
- Next
- Cells.Clear
- [a1].Resize(i, UBound(arrdata, 2)) = arrdata
- End Sub
复制代码 |
|