python基金估值查询_求助基于天天基金（东方财富）的基金盘中实时估值数据的VBA抓取办法...

赞同来自:

'复制到vbe中运行吧

Sub kao()

Dim tt As String

With CreateObject("Microsoft.XMLHTTP")

.Open "GET", "http://fundgz.1234567.com.cn/js/000011.js", False

.Send

tt = .responsetext

End With

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"});

fundcode = Split(arr(0), ":""")(1)

Name = Split(arr(1), ":""")(1)

dwjz = Split(arr(3), ":""")(1)

gsz = Split(arr(4), ":""")(1)

gszzl = Split(arr(5), ":""")(1)

date1 = Split(arr(2), ":""")(1)

date2 = Split(arr(6), ":""")(1)

date1 = Split(arr(2), ":""")(1)

date2 = Split(arr(6), ":""")(1)

End Sub