求助抓取新浪行情

伍成平

YZC51 发表于 2016-9-17 01:07
最终代码

请教老师，“全”“全1”工作表运行Cells(1 + i, 4) = Round((arry(3) - arry(2)) / arry(2), 4) * 100时溢出，怎么解决，就是运行股票数多了就不行，沪深股票3500多只，以后还会增加，运行超过大概2200行就会出问题‘，求加QQ353235899

伍成平

请教大神，“全”“全1”工作表运行Cells(1 + i, 4) = Round((arry(3) - arry(2)) / arry(2), 4) * 100时溢出，怎么解决，我是菜鸟级就是运行股票数多了就不行，沪深股票3500多只，以后还会增加，运行超过大概2200行就会出问题

伍成平

YZC51 发表于 2016-9-16 10:11
用好啦，记得赏花啊！

求老师们修改解决，问题已在文档里面描述

YZC51

请参考
    Dim xmlobject As Object
    Dim strReturn As String
    Dim strUrl As String
    Dim intLen As Long
    Dim intLenA As Long
    Dim arry As Variant
On Error Resume Next '利用错误陷井
    Set xmlobject = CreateObject("microsoft.xmlhttp")
    r = Sheet1.[b65536].End(xlUp).Row
    Debug.Print r
    For i = 1 To r '5000 '遍历，相当于当前股票行数
   
    strUrl = "http://hq.sinajs.cn/list=" & Cells(1 + i, 2) '起始股票代码单元格，格式要求前缀sz或sh
    xmlobject.Open "GET", strUrl, False
    xmlobject.send
    If xmlobject.readystate = 4 Then
        strReturn = xmlobject.responsetext
        strReturn = Mid(strReturn, 22, Len(strReturn) - 24) '剔除无关数据
        arry = Split(strReturn, ",") '按逗号分隔数据，放入数组arry
        intLenA = UBound(arry) - LBound(arry) + 1 '数组长度，此处未使用，可结合For遍历arry
      
       '获取目标数据
       Cells(1 + i, 3) = arry(0)   '0名称1今开2昨收3现价4最高5最低6买一价7卖一价8成交量9成交额10～29为五档信息30日期31时间
       Cells(1 + i, 4) = Round((arry(3) - arry(2)) / arry(2), 4) * 100
       Cells(1 + i, 5) = arry(3)
       Cells(1 + i, 6) = arry(1)
       Cells(1 + i, 7) = arry(2)
       Cells(1 + i, 8) = arry(4)
       Cells(1 + i, 9) = arry(5)
       Cells(1 + i, 10) = arry(8) / 1000000
       Cells(1 + i, 11) = arry(9) / 10000
      
    End If
    Next i
End Sub

YZC51

附件，请参考
VBA股票数据.rar (477.13 KB, 下载次数: 46)

2018-12-10 17:18 上传

点击文件名下载附件

伍成平

YZC51 发表于 2018-12-10 17:18
附件，请参考

谢谢，我昨天偶然通过别人的提示搞定了，也是你这个方法

五指山888

伍成平 发表于 2018-12-10 14:53
请教老师，“全”“全1”工作表运行Cells(1 + i, 4) = Round((arry(3) - arry(2)) / arry(2), 4) * 100时 ...

谢谢，感谢帮助！

五指山888

YZC51 发表于 2018-12-10 17:18
附件，请参考

谢谢老师的帮助！

zzxww

YZC51 发表于 2018-12-10 17:18
附件，请参考

老师，你好，请问可不可以帮我看看这个网页地址：https://car.autohome.com.cn/pric ... -0-0-0-0-0-0-1.html

想要提取所有页的车名和指导价两个数据，依葫芦画瓢按照老师的改了一下还是不行

请问老师可不可以帮忙一下呢，十分感谢！！！

excelvlookup

为什么不直接用代码读取本机上的day文件，或lc1文件。要的数据本机上都有的。不止当前的，还有历史的