请求抓网沪深A股排行榜

蓝色丹青

求助

蓝色丹青

“沪深A股排行榜”网址在压缩包里，要求也在

蓝色丹青

自己再顶一下，期待好心人

ghostjiao

1. Option Explicit
   
2. 
   
3. Sub demo()
   
4.     Application.ScreenUpdating = False
   
5.     Dim objXML, objJSON, objData, Ps%, P%, str$, Cell, nr, arr, Brr(1 To 10000, 1 To 11), k%, j%
   
6.     arr = Array("证券代码", "证券简称", "最新价", "涨跌幅", "成交量", "成交额", "振幅", "换手率", "委比", "量比", "市盈率")
   
7.     Set objXML = CreateObject("MSXML2.XMLHTTP")
   
8.     P = 1: Ps = 1
   
9.     Do While P <= Ps
   
10.         With objXML
    
11.             .Open "GET", "http://q.jrjimg.cn/?q=cn|s|sa&c=s,ta,tm,sl,cot,cat,ape&n=hqa&o=pl,d&p=" & P & "050", False
    
12.             .send
    
13.             str = .responsetext
    
14.             Ps = Val(Split(Split(str, "pages:")(1), ",page")(0))
    
15.             P = P + 1
    
16.             With CreateObject("msscriptcontrol.scriptcontrol")
    
17.                 .Language = "JavaScript"
    
18.                 .AddCode str
    
19.                 Set objJSON = .CodeObject.hqa
    
20.                 Set objData = CallByName(objJSON, "HqData", VbGet)
    
21.                 For Each Cell In objData
    
22.                     k = k + 1
    
23.                     nr = Split(Cell, ",")
    
24.                     Brr(k, 1) = nr(1): Brr(k, 2) = nr(2): Brr(k, 3) = nr(5)
    
25.                     Brr(k, 4) = nr(9) & "%": Brr(k, 5) = nr(6): Brr(k, 6) = nr(7)
    
26.                     Brr(k, 7) = nr(10) & "%": Brr(k, 8) = nr(13) & "%": Brr(k, 9) = nr(12) & "%"
    
27.                     Brr(k, 10) = nr(11) & "%": Brr(k, 11) = nr(14)
    
28.                 Next
    
29.             End With
    
30.         End With
    
31.     Loop
    
32.     With Sheet1
    
33.         .UsedRange.Clear
    
34.         .Columns("A").NumberFormatLocal = "@"
    
35.         .Range("a1").Resize(1, 11) = arr
    
36.         .Range("a2").Resize(k, 11) = Brr
    
37.     End With
    
38.     Application.ScreenUpdating = True
    
39. End Sub
    

复制代码

今天心情好，嘿嘿，所以，好心人来了

蓝色丹青

ghostjiao 发表于 2015-10-31 11:52
今天心情好，嘿嘿，所以，好心人来了

太感谢了，是我要的，就是速度有点慢

yanhj

做得真棒。