求教网页数据采集高手

ym123

以下代码为参考网上示例依样画葫，试图获取网站的一些报表数据，无奈完全不得要领，只获取了标签为“业绩预告”的年度数据，想获取标签为“分配预告”的年度数据不懂应该如何修改代码？哪位老师大侠能指点一下？万分感谢！！！

“分配预告”的实际网址为：http://data.eastmoney.com/bbsj/201412/yjyg/3.html




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

liucqa

至少你要用fiddler找到你要的数据在哪里

onlycxb

很熟悉的代码

ym123

onlycxb 发表于 2015-4-15 22:44
很熟悉的代码

就是参考老师的代码，还是弄不出来，求老师指点！谢谢啦！！！

onlycxb

ym123 发表于 2015-4-15 22:46
就是参考老师的代码，还是弄不出来，求老师指点！谢谢啦！！！

不能只是简单模仿，能找到真正的数据网址，就会知道怎么办了

五指山888

求助：为何2014年预报中的业绩变动原因数据不能抓取？
Sub test2()
'东方财富网 > 数据中心 > 年报季报 > 2014年年报业绩大全 > 业绩预告 > 业绩预告 (http://data.eastmoney.com/bbsj/201412/yjyg.html)

    With ActiveSheet
     .Cells(1, 1) = "股票代码,股票简称,业绩变动,业绩变动幅度,预告类型,上年同期净利润(万元),预告类型,公告日期,报告期,上年同期净利润(万元),预告业绩变动幅度均值,净利润,预告利润均值,新公布"
      '  .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
End Sub

五指山888

求助：各位老师为何不能抓取2014年预报业绩变动原因？谢谢！

五指山888

五指山888 发表于 2019-12-1 15:05
求助：各位老师为何不能抓取2014年预报业绩变动原因？谢谢！

求高手帮助看看，谢谢！

iceyuto

五指山888 发表于 2019-12-2 15:30
求高手帮助看看，谢谢！

这个问题解决了吗？

onlycxb

iceyuto 发表于 2020-1-3 23:40
这个问题解决了吗？

见http://club.excelhome.net/forum. ... 234982&pid=10200390