在Excel中自动从网上获取中证流通和基金指数

Uri = "http://hq.sinajs.cn/func=list=s_sh000001,s_sz399001,s_sh000300,s_sh000043,s_sh000011,s_sz399305,s_sz399903"
Sheet5.Cells(100, 100).Value = Uri
Inet1.Protocol = icHTTP
mystr = Inet1.OpenURL(Sheet5.Cells(100, 100).Value)
Sheet5.Cells(100, 100).Value = ""

'开始分析返回结果
x = 32
y = 3
ss = 0
For i = 1 To 7
' ss = InStr(ss, mystr, ",")
en = InStr(ss + 1, mystr, ",")
en1 = InStr(en + 1, mystr, ",")
en2 = InStr(en1 + 1, mystr, ",")
'str1 为现价
str1 = Mid(mystr, ss + 1, en - ss - 1)
'str2 为变动价
str2 = Mid(mystr, en + 1, en1 - en - 1)
'str3 为变动百分比
str3 = Mid(mystr, en1 + 1, en2 - en1 - 1)

Sheet2.Cells(x, y).Value = str2
Sheet2.Cells(x, y + 1).Value = str3 / (str2 - str3)

If x = 32 Then
x = 33
Else
x = 32
y = y + 3
End If
ss = InStr(en2, mystr, ";")

Next i