求助抓取新浪行情

YZC51

再或者
Sub 沪深A股1()
    URL = 网址同上
    With CreateObject("Msxml2.XMLHTTP") 'CreateObject("Microsoft.XMLHTTP")
            .Open "GET", URL, False
            .Send
            v = .responseText
    End With
   
    strText = Replace(Replace(Split(Split(v, "[""")(1), """]")(0), """,""", Chr(10)), ",", vbTab)
   
    Cells.ClearContents
   
    Call XieRu1(strText, [a2])
   
    Row1 = Range("A65535").End(xlUp).Row
   
    [a2] = 1: [a3] = 2: [a2:a3].AutoFill Range("a2:a" & Row1)
    [a1:AA1] = Split("序号 代码 名称 昨收 今开 最新价 最高 最低 金额 总手 涨跌额 涨跌幅 均价 振幅% 委比% 委差 现手   量比 换手% 市盈率 买入 更新时间 流通股本 流通市值 流通市值")

End Sub

Public Sub XieRu1(a, R As Range)
'a：待写入数组；R：写入起始位置
Dim d As Object
Set d = New DataObject
d.SetText a
d.PutInClipboard
R.Select
ActiveSheet.Paste
Set d = Nothing
End Sub

五指山888

YZC51 发表于 2017-9-19 10:32
再或者
Sub 沪深A股1()
    URL = 网址同上

先谢谢老师，我运行看看

五指山888

五指山888 发表于 2017-9-25 11:11
先谢谢老师，我运行看看

Public Sub XieRu1(a, R As Range)
'a：待写入数组；R：写入起始位置
Dim d As Object
Set d = New DataObject '卡住
d.SetText a
d.PutInClipboard
R.Select
ActiveSheet.Paste
Set d = Nothing
End Sub
第四行卡住了，谢谢！老师已经花了很多精力了，不要再花时间去研究了。我另外再想办法解决吧。

YZC51

五指山888 发表于 2017-9-25 11:25
Public Sub XieRu1(a, R As Range)
'a：待写入数组；R：写入起始位置
Dim d As Object

这句卡住需要以下引用
DataObject 要引用microsort forms 2.0，增加一个窗体就自动引用了。没有引用是出现未定义类型！

YZC51

请测试
Sub 沪深A股()
    URL = "http://hqdigi2.eastmoney.com/EM_Quote2010NumericApplication/index.aspx?type=s&sortType=C&sortRule=-1&pageSize=3500&page=1&jsName=quote_123&style=33&_g=" ' & Rnd()
'   Debug.Print URL
    With CreateObject("Msxml2.XMLHTTP") 'CreateObject("Microsoft.XMLHTTP")
            .Open "GET", URL, False
            .Send
            v = .responseText
    End With
    strText = Replace(Replace(Split(Split(v, "[""")(1), """]")(0), """,""", Chr(10)), ",", vbTab)
    Cells.ClearContents
    With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
        .SetText strText
        .PutInClipboard
    End With
    Range("A2").Select
    ActiveSheet.Paste
    t = [a65536].End(3).Row
   
    [a2] = 1: [a3] = 2: [a2:a3].AutoFill Range("a2:a" & t)
    [a1:AA1] = Split("序号 代码 名称 昨收 今开 最新价 最高 最低 金额 总手 涨跌额 涨跌幅 均价 振幅% 委比% 委差 现手   量比 换手% 市盈率 买入 更新时间 流通股本 流通市值 流通市值")
End Sub

五指山888

YZC51 发表于 2017-9-25 17:32
请测试
Sub 沪深A股()
    URL = "http://hqdigi2.eastmoney.com/EM_Quote2010NumericApplication/index. ...

谢谢YZC51老师的帮助，这个问题提出已经近一年了，终于在YZC51老师的帮助下解决了。

我偷月亮的心

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

你好,请问一下是如何发现Json的地址的??
http://vip.stock.finance.sina.com.cn/quotes_service/api/json_v2.php/Market_Center.getHQNodeData?page=1&num=80&sort=symbol&asc=1&node=shfxjs&symbol=&_s_r_a=setlen

734564205

YZC51 发表于 2016-9-18 11:55
因为以上网页打不开，现发一个其它网站的代码。

大神可否帮忙提取该网站所有公司所有年份数据。。万分感激！
http://stockdata.stock.hexun.com/zrbg/Plate.aspx?date=2015-12-31

734564205

五指山888 发表于 2017-9-27 20:54
谢谢YZC51老师的帮助，这个问题提出已经近一年了，终于在YZC51老师的帮助下解决了。

请问可以自动翻页吗

伍成平

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

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