|
本帖最后由 daniel32 于 2021-1-6 11:58 编辑
http://fundgz.1234567.com.cn/js/000011.js这个网址用vba读取时总不跟网页打开实时数据,.Range("AE" & i)只有在数据不更新的情况下才是一致的。我猜是vba只读取缓存,没有读取最新数据,但不知怎么修改。
Sub kao()
Dim tt As String
Application.ScreenUpdating = False
rowCount = Sheet11.Range("T65535").End(xlUp).row '获取行数
With Sheet11
For i = 2 To rowCount '从第二行开始
URL = "http://fundgz.1234567.com.cn/js/"
URL = URL & .Range("T" & i).Text & ".js"
With CreateObject("Microsoft.XMLHTTP")
.Open "GET", URL, False
.Send
tt = .responsetext
End With
If Len(tt) > 30 Then
tt = Split(Split(tt, "jsonpgz({""")(1), """});")(0)
arr = Split(tt, """,""")
'-----------------------------------
'jsonpgz({"fundcode":"000011","name":"华夏大盘精选混合","jzrq":"2020-05-12","dwjz":"13.8620","gsz":"13.9427","gszzl":"0.58","gztime":"2020-05-13 15:00"});
.Range("AE" & i) = Split(arr(4), ":""")(1)
End If
Next
End With
End Sub
|
|