|
发表于 2015-4-13 11:07
|
显示全部楼层
本楼为最佳答案
今年股市不错,祝楼主发大财。
新浪股市当日即时股票成交明细:- Sub 成交明细()
- Dim url, ul, html, tb, i&, j&, k&, dm, iRow
- dm = [j1].Value
- If Len(CStr(dm)) <> 6 Or IsNumeric(dm) = False Then Exit Sub
- If Left(dm, 1) = "6" Then dm = "sh" & dm Else dm = "sz" & dm
- url = "http://vip.stock.finance.sina.com.cn/quotes_service/view/vMS_tradedetail.php?"
- url = url & "symbol=" & dm
- url = url & "&date=" & Format(Date, "yyyy-mm-dd")
- url = url & "&page="
- [a2:g9999] = "": [k1] = "获取中..."
- Set html = CreateObject("htmlfile")
- With CreateObject("msxml2.xmlhttp")
- For k = 1 To 100
- ul = url & k
- iRow = [a65536].End(3).Row
- .Open "get", ul, False
- .send
- html.body.innerhtml = StrConv(.ResponseBody, vbUnicode)
- Set tb = html.all.tags("table")(3).Rows
- For i = 1 To tb.Length - 1
- For j = 0 To tb(i).Cells.Length - 1
- If IsNumeric(Left(tb(i).Cells(0).innertext, 1)) = False Then [k1] = "": MsgBox "获取完成!": Exit Sub
- Cells(iRow + i, j + 1) = tb(i).Cells(j).innertext
- Next
- Next
- Next
- End With
- [k1] = ""
- End Sub
复制代码
成交明细.rar
(38.63 KB, 下载次数: 16)
|
|