Sub 自定义获取股票当天信息()
Worksheets("输出结果").Cells.Clear
Worksheets("输出结果").Range("a1:AE1") = Array("代码", "股票名", "现价", "昨收", "今开", "成交量(手)", "外盘", "内盘", "买一", "买一量(手)", "卖一", "卖一量", "时间", "涨跌", "涨跌幅", "最高", "最低", "价格/成交量(手)/成交额", "成交量(手)", "成交额(万)", "换手率", "市盈率", "最高", "最低", "振幅", "流通市值", "总市值", "市净率", "涨停价", "跌停价", "委差")
X = Application.CountA(Worksheets("代码").Range("A:A"))
For r = 1 To X
NUM = Worksheets("代码").Cells(r, 1).Value
If Val(NUM) = sh000001 Then
Url = "http://qt.gtimg.cn/q=" & NUM
Else
If Val(NUM) < 600000 Then
Url = "http://qt.gtimg.cn/q=sz" & NUM
Else
Url = "http://qt.gtimg.cn/q=sh" & NUM
End If
End If
With CreateObject("msxml2.xmlhttp")
.Open "GET", Url, False
.send
sp = Split(.responseText, "~")
If UBound(sp) > 3 Then
Worksheets("输出结果").Cells(r, 1).Value = "'" & sp(2)
Worksheets("输出结果").Cells(r, 2).Value = sp(1)
Worksheets("输出结果").Cells(r, 3).Value = sp(3)
Worksheets("输出结果").Cells(r, 4).Value = sp(4)
Worksheets("输出结果").Cells(r, 5).Value = sp(5)
Worksheets("输出结果").Cells(r, 6).Value = sp(6)
Worksheets("输出结果").Cells(r, 7).Value = sp(7)
Worksheets("输出结果").Cells(r, 8).Value = sp(8)
Worksheets("输出结果").Cells(r, 9).Value = sp(9)
Worksheets("输出结果").Cells(r, 10).Value = sp(10)
Worksheets("输出结果").Cells(r, 11).Value = sp(19)
Worksheets("输出结果").Cells(r, 12).Value = sp(20)
'Cells(r, 13).Value = sp(29)
Worksheets("输出结果").Cells(r, 13).Value = Format(sp(30), "0000-00-00 00:00:00")
Worksheets("输出结果").Cells(r, 14).Value = sp(31)
Worksheets("输出结果").Cells(r, 15).Value = sp(32)
Worksheets("输出结果").Cells(r, 16).Value = sp(33)
Worksheets("输出结果").Cells(r, 17).Value = sp(34)
Worksheets("输出结果").Cells(r, 18).Value = sp(35)
Worksheets("输出结果").Cells(r, 19).Value = sp(36)
Worksheets("输出结果").Cells(r, 20).Value = sp(37)
Worksheets("输出结果").Cells(r, 21).Value = sp(38)
Worksheets("输出结果").Cells(r, 22).Value = sp(39)
Worksheets("输出结果").Cells(r, 23).Value = sp(41)
Worksheets("输出结果").Cells(r, 24).Value = sp(42)
Worksheets("输出结果").Cells(r, 25).Value = sp(43)
Worksheets("输出结果").Cells(r, 26).Value = sp(44)
Worksheets("输出结果").Cells(r, 27).Value = sp(45)
Worksheets("输出结果").Cells(r, 28).Value = sp(46)
Worksheets("输出结果").Cells(r, 29).Value = sp(47)
Worksheets("输出结果").Cells(r, 30).Value = sp(48)
Worksheets("输出结果").Cells(r, 31).Value = sp(50)
Else
End If
End With
Next
End Sub
数据来源于"腾讯股票数据接口",数字代表对应值
输出结果: