东方财富网天天练

onlycxb

hwwyb 发表于 2015-4-12 20:58
麻烦问下，http://data.eastmoney.com/bbsj/201412/szbl.html，这个网页怎么取，用原来的代码取不了，麻烦o ...

改版了吧。建议还是百度一下教程。不要总是索取代码。

onlycxb

学不完用不尽 发表于 2015-4-12 09:28
一表网尽东方财富。

谢谢，只是练习而已。没有对网站信息做具体研究。

onlycxb

ym123 发表于 2015-4-12 20:47
您好老师！请教如何一次操作同时完成以下两个主题全部分页数据的提取，在一个工作簿内的两个表格内分别显 ...

这只是数据在表格中的分配问题,循环两次，一次写入一个表即可。论坛交流仅提供主要代码，不解释。

ym123

onlycxb 发表于 2015-4-13 08:31
这只是数据在表格中的分配问题,循环两次，一次写入一个表即可。论坛交流仅提供主要代码，不解释。

恳求老师能提供年终分配预告网页的代码，万分感谢！！！

http://data.eastmoney.com/bbsj/201412/yjyg/3.html

z_ae86@163.com

onlycxb 发表于 2015-4-11 21:03
11：

http://nufm.dfcfw.com/EM_Finance2014NumericApplication/JS.aspx/JS.aspx?type=ct&st=(BalFlowMain" & P & ")&sr=-1&p=1&ps=50&js=var%20dy={pages:(pc),data:[(x)]}&token=894050c76af8597a853f5b408b759f5d&cmd=C._AB&sty=DCFFITA&rt=" & Rnd() * 100000000
能不能解释下是怎么得到URL的？URL中各个参数是什么意思？怎么样确定各个参数？
感激不尽！

onlycxb

z_ae86@163.com 发表于 2015-4-14 11:50
http://nufm.dfcfw.com/EM_Finance2014NumericApplication/JS.aspx/JS.aspx?type=ct&st=(BalFlowMain" &  ...

有些参数不明其义，有些参数是分析得出的，如P=1指第一页，ps=50代表每页显示50条记录。网页分析并不轻松，是在反复测试基础上得出的。

ym123

以下代码只能获取标签为“业绩预告”的年度数据，请教如何获取标签为“分配预告”的数据？谢谢老师指点！

Sub test2()
'东方财富网 > 数据中心 > 年报季报 > 2014年年报业绩大全 > 业绩预告 > 业绩预告 (http://data.eastmoney.com/bbsj/201412/yjyg.html)

    With ActiveSheet
        .Cells(1, 1) = "股票代码,股票简称"
    End With
    With CreateObject("Microsoft.XMLHTTP")
        .Open "GET", "http://datainterface.eastmoney.com/EM_DataCenter/JS.aspx?type=SR&sty=YJYG&fd=2014-12-31&st=4&sr=-1&p=1&ps=1&js=(pc),(x)&stat=0&rt=" & Rnd, False
        .send
        P = Split(.responsetext, ",")(0)
        .Open "GET", "http://datainterface.eastmoney.com/EM_DataCenter/JS.aspx?type=SR&sty=YJYG&fd=2014-12-31&st=4&sr=-1&p=1&ps=" & P & "&js=var%20a={pages:(pc),data:[(x)]}&stat=0&rt=" & Rnd, False
        .send

         strJs = .responsetext & ";var b=a.data;var s=''; for(x in b){s+=b[x]+'\r';}"
         
    End With
    With CreateObject("MSScriptControl.ScriptControl")
        .Language = "javascript"
        strJs = .Eval(strJs)
    End With
    Arr = Split(strJs, vbCr)
    With ActiveSheet
        .[a2].Resize(UBound(Arr)) = WorksheetFunction.Transpose(Arr)
       .[a:a].TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, Comma:=True, FieldInfo:=Array(1, 2)
    End With

五指山888

ym123 发表于 2015-4-15 09:23
以下代码只能获取标签为“业绩预告”的年度数据，请教如何获取标签为“分配预告”的数据？谢谢老师指点！
...

我发的帖子如何才能在这儿发表？“http://club.excelhome.net/forum. ... &tid=1199027&extra=”是求教新股数据两次抓取的问题，希望能得到大家的帮助，谢谢我自己再贴过来
[求助] 新股数据主营业务如何抓取？ [color=rgb(153, 153, 153) !important][复制链接]

根据 onlycxb老师写的新股数据抓取的程序我试着加了两段格式调整的代码，现在传上来，不会写大家见笑了。各位老师能不能增加写出二次数据抓取的代码来？需要增加抓取的数据见附件工作簿“模板”表格af列到bb。 “模板”表格图黄颜色的af列到bb列都是新增加需要抓取的数据，特别是al列主营业务的数据。 还有两市停复牌信息一览 _ 数据中心 _ 东方财富网 [url=]http://data.eastmoney.com/tfpxx/[/url]这个每天最新的数据能抓取吗? 新股申购数据.rar (286.12 KB, 下载次数: 0)

补充内容 (2015-4-28 00:54):
哪位老师能帮助一下写出新股主营业务数据提取，谢谢！

onlycxb

ym123 发表于 2015-4-15 09:23
以下代码只能获取标签为“业绩预告”的年度数据，请教如何获取标签为“分配预告”的数据？谢谢老师指点！
...

1. Sub test()
   
2. '东方财富网 > 数据中心 > 年报季报 > 2014年年报业绩大全 > 业绩预告 > 分配预告
   
3. 'http://data.eastmoney.com/bbsj/201412/yjyg/3.html
   
4. Dim p, strJS, arr
   
5. Cells.Clear
   
6.     With ActiveSheet
   
7.         .Cells(1, 1) = "股票代码,股票简称,利润分配预案,公告日期"
   
8.     End With
   
9.     With CreateObject("Microsoft.XMLHTTP")
   
10.         .Open "GET", "http://datainterface.eastmoney.com/EM_DataCenter/JS.aspx?type=SR&sty=FPYA&fd=2014-12-31&st=2&sr=-1&p=1&ps=1&js=(pc),(x)&stat=3&rt=" & Rnd(), False
    
11.          .send
    
12.         p = Split(.responsetext, ",")(0)
    
13.         .Open "GET", "http://datainterface.eastmoney.com/EM_DataCenter/JS.aspx?type=SR&sty=FPYA&fd=2014-12-31&st=2&sr=-1&p=2&ps=" & p & "&js=var%20a={pages:(pc),data:[(x)]}&stat=3&rt=" & Rnd, False
    
14.         .send
    
15.         strJS = .responsetext & ";var b=a.data;var s=''; for(x in b){s+=b[x]+'\r';}"
    
16.     End With
    
17.     With CreateObject("MSScriptControl.ScriptControl")
    
18.         .Language = "javascript"
    
19.         strJS = .Eval(strJS)
    
20.     End With
    
21.     arr = Split(strJS, vbCr)
    
22.     With ActiveSheet
    
23.         .[a2].Resize(UBound(arr)) = WorksheetFunction.Transpose(arr)
    
24.         .[a:a].TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, Comma:=True, FieldInfo:=Array(1, 2)
    
25.     End With
    
26. End Sub
    

复制代码

ym123

onlycxb 发表于 2015-4-17 14:18

好老师！十二万分的感谢啊！！！！！！！