【股票大涨】分享实时股票行情自动更新【快下载吧】

tonghhai

win7运行excel2010发现报错了，“系统未找到指定的资源”，.send标黄，如何解决？

Public Sub TimerProc(Optional sA2 As Integer = 30)
    Dim Q As Long, dm As String, url As String, sSp() As String
    [E1].Value = [E1].Value + 1
    For Q = 4 To Range("A1").CurrentRegion.Rows.Count
        VBA.DoEvents
        dm = Cells(Q, 1).Value
        If Val(dm) < 600000 Then
            url = "http://qt.gtimg.cn/q=ff_sz" & dm
        Else
            url = "http://qt.gtimg.cn/q=ff_sh" & dm
        End If
        With CreateObject("msxml2.xmlhttp")
            .Open "get", url, False
            .send
            sSp = Split(.responsetext, "~")
            If UBound(sSp) > 1 Then
                Cells(Q, 2).Value = sSp(12)       '名称
                Cells(Q, 9).Value = sSp(1)       '现价

                Cells(Q, 10).Value = sSp(2)       '昨收
                Cells(Q, 11).Value = sSp(3)       '金开
                Cells(Q, 12).Value = sSp(4)      '涨跌
                Cells(Q, 13).Value = sSp(5)      '涨跌幅
                Cells(Q, 14).Value = sSp(6)      '最高
                Cells(Q, 15).Value = sSp(7)     '最低
                Cells(Q, 16).Value = sSp(8)     '振幅
                Cells(Q, 17).Value = sSp(9)     '换手率
                'Cells(q, 18).Value = ssp(39)     '市盈率
               'Cells(q, 14).Value = ssp(36)     '成交量
                'Cells(q, 15).Value = ssp(37)     '成交量
               'Cells(q, 16).Value = ssp(44)     '流通市值
                'Cells(q, 17).Value = ssp(45)     '总市值
                'Cells(q, 18).Value = ssp(47) '涨停
                'Cells(q, 19).Value = ssp(48) '跌停

tonghhai

excel2010运行出错，停留在send处，如何解决？系统未找到指定资源

Public Sub TimerProc(Optional sA2 As Integer = 30)
    Dim Q As Long, dm As String, url As String, sSp() As String
    [E1].Value = [E1].Value + 1
    For Q = 4 To Range("A1").CurrentRegion.Rows.Count
        VBA.DoEvents
        dm = Cells(Q, 1).Value
        If Val(dm) < 600000 Then
            url = "http://qt.gtimg.cn/q=ff_sz" & dm
        Else
            url = "http://qt.gtimg.cn/q=ff_sh" & dm
        End If
        With CreateObject("msxml2.xmlhttp")
            .Open "get", url, False
            .send
            sSp = Split(.responsetext, "~")
            If UBound(sSp) > 1 Then
                Cells(Q, 2).Value = sSp(12)       '名称
                Cells(Q, 9).Value = sSp(1)       '现价
               
                Cells(Q, 10).Value = sSp(2)       '昨收
                Cells(Q, 11).Value = sSp(3)       '金开
                Cells(Q, 12).Value = sSp(4)      '涨跌
                Cells(Q, 13).Value = sSp(5)      '涨跌幅
                Cells(Q, 14).Value = sSp(6)      '最高
                Cells(Q, 15).Value = sSp(7)     '最低
                Cells(Q, 16).Value = sSp(8)     '振幅
                Cells(Q, 17).Value = sSp(9)     '换手率
                'Cells(q, 18).Value = ssp(39)     '市盈率
               'Cells(q, 14).Value = ssp(36)     '成交量
                'Cells(q, 15).Value = ssp(37)     '成交量
               'Cells(q, 16).Value = ssp(44)     '流通市值
                'Cells(q, 17).Value = ssp(45)     '总市值
                'Cells(q, 18).Value = ssp(47) '涨停
                'Cells(q, 19).Value = ssp(48) '跌停

liuhui896919

好厉害啊。。佩服

yqy188

楼主，可以看看这个，参考下，Excel 股票行情，用VBA取多个股票实时股价、进行技术分析
http://club.excelhome.net/thread-523995-1-1.html
(出处: ExcelHome技术论坛)

yqy188

我没看出来，数据放哪里，也没有资金情况
我还想要个交易明细表，按笔的，也不知道如何弄

放你鸽子

老师，你好，能抓取市净率和每股净资产吗？感激不尽！！！！！

放你鸽子

老师，能加入支持ETF吗？如501050

smlin777

谢谢楼主的分享，学习了

sunan_m

感谢！！！

sunan_m

好用得很！感谢！！！