|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
- Sub main()
- Dim strText As String, myRows, resArr()
- Dim D As Object, js As Object, n As Long, i As Long, j As Long
- strText = getHtmlStr()
- Set D = CreateObject("htmlfile"): Set js = D.parentWindow
- js.execScript strText & ";s=v_psh601616[3];"
- myRows = Split(js.eval("s"), "^")
- n = UBound(myRows) + 1
- ReDim resArr(1 To n, 1 To 5)
- For i = 0 To n - 1
- temp = Split(myRows(i), "~")
- For j = 0 To 4
- resArr(i + 1, j + 1) = temp(j)
- Next
- Next
- Sheet1.Range("A:E").Clear
- Sheet1.[A1:E1] = Array("猜测1", "猜测2", "猜测3", "猜测4", "猜测5")
- Sheet1.Range("A2").Resize(n, 5) = resArr
- MsgBox "获取数据完成!"
- End Sub
- Function getHtmlStr() As String
- Dim winHttp As Object
- Set winHttp = CreateObject("msxml2.xmlhttp")
- winHttp.Open "GET", "http://stock.gtimg.cn/data/index.php?appn=price&c=sh601616", False
- winHttp.setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.3; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/74.0.3729.131 Safari/537.36"
- winHttp.send
- getHtmlStr = winHttp.responseText
- End Function
复制代码
|
|