东方财富网天天练

brucezeng

老师，能帮忙看看 这贴？http://club.excelhome.net/thread-1208459-1-1.html

brucezeng

brucezeng 发表于 2015-6-2 23:05
老师，能帮忙看看 这贴？http://club.excelhome.net/thread-1208459-1-1.html

抓取数据网址：http://fund.eastmoney.com/fund.html#os_0;isall_0;ft_;pt_1 但初始表格为显示200条，点击显示全部，但url不变，这个时候下面语句就不起作用了，要怎么改？请教一下大家！谢谢！

Sub test()
Dim myQuery
   With ActiveSheet
       .Cells.Delete
       .[a1] = "Conneting, Please Wait..."

Set myQuery = ActiveSheet.QueryTables _
           .Add(Connection:="URL;http://fund.eastmoney.com/fund.html#os_0;isall_0;ft_;pt_1", _
           Destination:=.Cells(1, 1))
   End With
   With myQuery
       .Refresh
   End With
End Sub

用fiddler抓包，抓的每次好像都不一样，返回的均是乱码，老师帮忙看看问题出在哪？ @onlycxb
http://fund.eastmoney.com/Data/F ... ;text=&sort=zdf,desc&page=1,9999&dt=1433253122543&atfc=&onlySale=0
http://fund.eastmoney.com/Data/F ... ;text=&sort=zdf,desc&page=1,9999&dt=1433256088079&atfc=&onlySale=0

onlycxb

brucezeng 发表于 2015-6-2 23:05
老师，能帮忙看看 这贴？http://club.excelhome.net/thread-1208459-1-1.html

渔来了（免费示例代码，请自行完善）

1. Sub t()
   
2.     Dim js, str
   
3.     Set js = CreateObject("scriptcontrol")
   
4.     js.Language = "jscript"
   
5.     With CreateObject("msxml2.xmlhttp")
   
6.         .Open "GET", "http://fund.eastmoney.com/Data/Fund_JJJZ_Data.aspx?t=1&lx=1&letter=&gsid=&text=&sort=zdf,desc&page=1,9999&dt=1433289836134&atfc=&onlySale=0", False
   
7.         .send
   
8.         str = js.eval(.responsetext & ";var s='';a=db.datas;for(x in a){for(var i=0;i<20;i++){s+= a[x][i]+'\t';}s+='\r'}")
   
9.     End With
   
10.     MsgBox str
    
11. End Sub

复制代码

ak47ok

onlycxb 发表于 2015-6-3 08:21
渔来了（免费示例代码，请自行完善）

来晚了，请教老师http://data.eastmoney.com/stock/lhb/2010-01-04.html的每天龙虎榜数据如何抓取，谢谢！

onlycxb

ak47ok 发表于 2015-6-7 15:10
来晚了，请教老师http://data.eastmoney.com/stock/lhb/2010-01-04.html的每天龙虎榜数据如何抓取，谢谢 ...

Sub 示例一页()
    Cells.Clear
    Dim a, b, c, d, strtext, m, j
    With CreateObject("msxml2.xmlhttp")
        .Open "GET", "http://data.eastmoney.com/stock/lhb/2010-01-05.html", False
        .send
        strtext = .responsetext
    End With
    Set a = CreateObject("htmlfile")
    a.body.innerhtml = strtext
    Set b = a.all.tags("table")("dt_1")
    For Each c In b.Rows
        m = m + 1
        Debug.Print m
        j = 0
        For Each d In c.Cells
            j = j + 1
            If c.Cells.Length = 6 Then Cells(m, j + 5) = d.innertext Else Cells(m, j) = d.innertext
        Next d

    Next c
End Sub

onlycxb

结贴！！！！！！

daly3721

onlycxb 发表于 2015-4-3 13:56
东方财富网 > 数据中心 > 年报季报 > 业绩报表

大师，下面代码中的这一句 strJs = .responsetext & ";var b=a.data;var s=''; for(x in b){s+=b[x]+'\r';}"什么意思，能否作个注释？网上没地方有说明。另外， strJs = .responsetext & ";这里的;有时是：，怎么回事呢？谢了。
Sub test()
    Dim strJs, P
    Cells.ClearContents
    With CreateObject("Microsoft.XMLHTTP")
        .Open "GET", "http://datainterface.eastmoney.com/EM_DataCenter/JS.aspx?type=SR&sty=YJBB&fd=2014-12-31&st=13&sr=-1&p=1&ps=1&js=(pc),(x)&stat=0&rt=47601296", False
        .send
        P = Split(.responsetext, ",")(0)
        .Open "GET", "http://datainterface.eastmoney.com/EM_DataCenter/JS.aspx?type=SR&sty=YJBB&fd=2014-12-31&st=13&sr=-1&p=1&ps=" & P & "&js=var%20a={pages:(pc),data:[(x)]}&stat=0&rt=47601296", False
        .send
        
         CopyToClipbox .responsetext
        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"), Comma:=True
    End With
End Sub

onlycxb

daly3721 发表于 2015-6-19 08:41
大师，下面代码中的这一句 strJs = .responsetext & ";var b=a.data;var s=''; for(x in b){s+=b[x]+'\r' ...

"var b=a.data;var s=''; for(x in b){s+=b[x]+'\r';}"这句js语法，类似于for  ....next，具体参见javascript教程

daly3721

onlycxb 发表于 2015-6-19 16:27
"var b=a.data;var s=''; for(x in b){s+=b[x]+'\r';}"这句js语法，类似于for  ....next，具体参见javasc ...

谢谢,跟我想的差不多。

yahcat

看看，试试代码