东方财富 龙虎榜数据 地址列表读取数据

YZC51

“http://datainterface.eastmoney.c ... js=var%20ZlHguMuK=1”
修改ps=30的30即可

YZC51

mmm426 发表于 2015-10-28 21:30
30个的记录 不对了额  
不是最近的30个

修改（//datainterface.eastmoney.com/EM_DataCenter/JS.aspx?type=LHB&sty=YYHSIU&code=80032107&p=2&ps=30&js=var%20ZlHguMuK=1]http://datainterface.eastmoney.c ... js=var%20ZlHguMuK=1）中的ps=30即可！

kings12333

YZC51 发表于 2015-10-28 22:39
修改（//datainterface.eastmoney.com/EM_DataCenter/JS.aspx?type=LHB&sty=YYHSIU&code=80032107&p=2& ...

数据好像有区别，我对照了下，好像与最新的数据差别较大，帮忙写个完整的VBA好吗。。谢谢，造福一代股民

kings12333

onlycxb 发表于 2015-10-28 15:08
利用JS处理一下

大师，这个网页的转码怎么转：
With CreateObject("MSXML2.XMLHTTP")
            .Open "get", "http://data.eastmoney.com/stock/lhb/yyb/80032107.html ", False
            .setRequestHeader "Content-Type", "application/json"
            .Send
            strText = .responsetext
strText = "<table>" & Split(Split(strText, "（%）</a></td></tr>")(1), "</table>")(0) & "</table>"

YZC51

请测试

1. Sub YZC()
   
2.     Dim objXML As Object   
   
3.     Application.ScreenUpdating = False   
   
4.     Range("a3:n3000").ClearContents '删除内容
   
5.     'URL = "http://quote.tool.hexun.com/hqzx/quote.aspx?type=2&market=0&sorttype=3&updown=up&page=1&count=28" & Format(Now, "00")
   
6.     URL = "http://datainterface.eastmoney.com/EM_DataCenter/JS.aspx?type=LHB&sty=YYHSIU&code=80032107&p=2&ps=30&js=var%20ZlHguMuK=1" & Format(Now, "00")
   
7.     Set objXML = CreateObject("Microsoft.XMLHTTP")   
   
8.     With objXML
   
9.         .Open "GET", URL, False
   
10.         .send
    
11.         str1 = .responsetext
    
12.      End With      
    
13.         Str2 = Split(Split(str1, "([""")(1), """])")(0)
    
14.         Str2 = Replace(Replace(Str2, """,""", Chr(10)), ",", Chr(9))        
    
15.     With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
    
16.         .SetText Str2
    
17.         .PutInClipboard
    
18.     End With
    
19. 
    
20.     Range("A3").Select
    
21.     ActiveSheet.Paste 'False '无条件覆盖        
    
22.     Set objXML = Nothing   
    
23.     [C1] = Right(Left(URL, 90), 8) '      
    
24.     Application.ScreenUpdating = True   
    
25. End Sub

复制代码

YZC51

修改此句为3000即全部数据

1. URL = "http://datainterface.eastmoney.com/EM_DataCenter/JS.aspx?type=LHB&sty=YYHSIU&code=80032107&p=2&ps=30&js=var%20ZlHguMuK=1" & Format(Now, "00")
   
2. 
   
3. URL = "http://datainterface.eastmoney.com/EM_DataCenter/JS.aspx?type=LHB&sty=YYHSIU&code=80032107&p=2&ps=3000&js=var%20ZlHguMuK=1" & Format(Now, "00")

复制代码

YZC51

请测试

1. Sub YZC抓表格() '网页表格抓取
   
2.     Dim strText As String
   
3.     'Cells.Clear
   
4.     [a2:l21] = ""
   
5.     With CreateObject("MSXML2.XMLHTTP")
   
6.         URL = "http://data.eastmoney.com/stock/lhb/yyb/80032107.html"
   
7.         .Open "GET", URL, False
   
8.         .setRequestHeader "Connection", "keep-alive"
   
9.         .Send
   
10.         sText = .responsetext
    
11.     End With
    
12.    
    
13.     strText = "<table" & Split(Split(sText, "<table")(1), "</table>")(0) & "</table>"
    
14.             
    
15.     With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
    
16.         .SetText strText
    
17.         .PutInClipboard
    
18.     End With
    
19.    
    
20.     Range("A2").Select
    
21.     ActiveSheet.Paste
    
22.    
    
23.   End Sub

复制代码

kings12333

YZC51 发表于 2015-10-29 00:48
请测试

非常感谢大师凌晨帮忙写代码，但测试后发现如下问题：
1.VBA取得的数据与网站数据不一样，是不能同步？（PS: 有图片对比）
2.取得的数据格式能否与东方财富列的位置一致。。
3.分离数据过程中得到的股票代码，如 600868.SH能不能将后面的“.SH"或”.SZ"过滤掉，就是不要它。。
请大师看看，谢谢！

YZC51

请测试17楼代码！！！

kings12333

YZC51 发表于 2015-10-29 07:37
请测试17楼代码！！！

可行，非常感谢，但下载后的数据里带有远程链接，能不能将它去掉，一点就自动打开网页了