求助抓取新浪行情

YZC51

五指山888 发表于 2016-9-17 00:35
谢谢！这么晚了，还在工作，再次感谢老师的帮助！

不客气！能用就好！

五指山888

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

YZC51老师写的这个程序非常好，速度非常快，能不能再帮忙写处这个网址的抓取代码来行情中心_新浪财经_新浪网  http://vip.stock.finance.sina.com.cn/mkt/#hs_a，谢谢！

五指山888

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

谢谢老师的帮助，还这么仔细修改。非常好用，点击数据就出来了，老师抓取的方法非常好，速度奇快。网页现在能打开了，试试看

YZC51

五指山888 发表于 2016-9-17 22:50
YZC51老师写的这个程序非常好，速度非常快，能不能再帮忙写处这个网址的抓取代码来行情中心_新浪财经_新 ...

不知道什么原因，此网页上不去！

五指山888

YZC51 发表于 2016-9-18 08:47
不知道什么原因，此网页上不去！

行情中心_新浪财经_新浪网  http://vip.stock.finance.sina.com.cn/mkt/#hs_a，能打开的

五指山888

浪
广
告

意见反馈 帮助
  
代码/名称/拼音
  查询
北京时间:18日 11:05:18 | 美东时间:17日 23:05:18
现在能打开，你有空的时候再试试看，看看能打开吗

YZC51

因为以上网页打不开，现发一个其它网站的代码。

1. Sub 沪深A股2()
   
2.     With CreateObject("Microsoft.XMLHTTP")
   
3.             .Open "GET", "http://hqdigi2.eastmoney.com/EM_Quote2010NumericApplication/index.aspx?type=s&sortType=C&sortRule=-1&pageSize=3000&page=1&jsName=quote_123&style=33&_g=" '& Rnd(), False
   
4.             .Send
   
5.             v = .responseText
   
6.     End With
   
7.    
   
8.     strText = Split(Split(v, "[""")(1), """]")(0)
   
9.    
   
10.     Cells.ClearContents
    
11.     Dim arr() As String
    
12.     arr = Split(strText, """,""")
    
13.     Range("b2:b" & (UBound(arr) + 2)) = Application.Transpose(arr)
    
14.     FenLie
    
15.   '  Columns("B:B").TextToColumns Destination:=Range("B1"), DataType:=1, Comma:=True, FieldInfo:=Array(Array(1, 9), Array(2, 1)), TrailingMinusNumbers:=True
    
16.     [a2] = 1: [a3] = 2: [a2:a3].AutoFill Range("a2:a" & UBound(arr) + 1)
    
17.     [a1:t1] = Split("序号 代码 名称 最新价 涨跌额 涨跌幅 买入 卖出 昨收 今开 最高 最低 成交量/手 成交额/万 更新时间 市盈率 市净率 总市值 流通市值 换手率")
    
18.     Range("W1").Select
    
19. End Sub
    
20. Sub FenLie()  'fenlie
    
21.     Columns("B:B").TextToColumns Destination:=Range("B1"), DataType:=1, Comma:=True, FieldInfo _
    
22.         :=Array(Array(1, 9), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
    
23.         Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1 _
    
24.         ), Array(14, 1), Array(15, 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array _
    
25.         (20, 9), Array(21, 9), Array(22, 9), Array(23, 1), Array(24, 1), Array(25, 1), Array(26, 9), _
    
26.         Array(27, 1), Array(28, 9), Array(29, 1), Array(30, 9), Array(31, 1), Array(32, 1), Array(33, 1))
    
27. End Sub
    

复制代码

YZC51

将
g=" '& Rnd(), False

修改为

g=" & Rnd(), False

YZC51

五指山888 发表于 2016-9-18 11:07
浪
广
告

主页能打开，股票页面打不开！

五指山888

YZC51 发表于 2016-9-18 14:24
将
g=" '& Rnd(), False

还是走不通，搞到现在不知问题在哪儿，第13行出错，不过先谢谢老师，用2007版本很快，在2003版本不能用


补充内容 (2016-11-11 21:26):
这么好的一个软件，就是在2003版本上不能用，那位老师能帮忙解决一下