vba分析股票，vba 股票数据分析

大家好，今天小编关注到一个比较有意思的话题，就是关于vba分析股票的问题，于是小编就整理了1个相关介绍vba分析股票的解答，让我们一起看看吧。

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

到此，以上就是小编对于vba分析股票的问题就介绍到这了，希望介绍关于vba分析股票的1点解答对大家有用。