Excel VBA代码如何实现股票数据汇总？

Sub test() For r = 3 To Range("A1").CurrentRegion.Rows.Count dm = Cells(r, 1).Value If Val(dm) = sh000001 Then '判断上证还是深证，规则比较简单，无法准确判断创业板 URL = "http://qt.gtimg.cn/q=" & dm '从腾讯证券接口获取数据 Else If Val(dm) < 600000 Then URL = "http://qt.gtimg.cn/q=sz" & dm Else URL = "http://qt.gtimg.cn/q=sh" & dm End If End If With CreateObject("msxml2.xmlhttp") '打开腾讯接口数据 .Open "GET", URL, False .send sp = Split(.responsetext, "~") If UBound(sp) > 3 Then '把腾讯证券接口的数据分别写入excel对应单元格 Cells(r, 2).Value = sp(1) Cells(r, 4).Value = sp(3) Cells(r, 5).Value = Format(sp(30), "0000-00-00 00:00:00") Cells(r, 6).Value = sp(4) Cells(r, 7).Value = sp(5) Else Cells(r, 3).Value = "代码错啦！" End If End With Next End Sub