网页的数据导入

cexolpgf

http://data.eastmoney.com/executive/list.html
用原来的方法已失效..

谢谢各位老大了.

onlycxb

请学习http://club.excelhome.net/thread-1159783-1-1.html

cexolpgf

onlycxb 发表于 2014-10-30 18:36
请学习http://club.excelhome.net/thread-1159783-1-1.html

无一点这方面知识...帮帮..直接写下..谢谢了.

cexolpgf

无一点这方面知识...帮帮..直接写下..谢谢了.

onlycxb

网页抓取是个艰苦工作，还是自力更生为好。任何人都是一点一点学过来的。

liucqa

不要赤裸裸的索取嘛，这是个学习论坛，不是乞讨论坛

引子玄

cexolpgf 发表于 2014-10-30 18:54
无一点这方面知识...帮帮..直接写下..谢谢了.

直接帮写不敢当，
提示个人的抓取思路如下：
1、网页本地化（下载HTML到自己电脑）；
2、再从下载的文件导入到EXCEL；
3、URL页面ID参数做个循环。完成。

(这只是众多网抓方法中的一种）

blanksoul12

請問有人可以做一次來看可以嗎?

onlycxb

抓取成功，相关网址信息供参考！
GET http://datainterface.eastmoney.c ... ;js=var%20ZJCSqUVl={pages:(pc),data:[(x)]}&rt=47157143 HTTP/1.1
Host: datainterface.eastmoney.com
User-Agent: Mozilla/5.0 (Windows NT 6.1; rv:33.0) Gecko/20100101 Firefox/33.0
Accept: */*
Accept-Language: zh-cn,zh;q=0.8,en-us;q=0.5,en;q=0.3
Accept-Encoding: gzip, deflate
Referer: http://data.eastmoney.com/executive/list.html
Cookie: emstat_bc_emcount=29826717462842909878; emstat_ss_emcount=0_1414743077_1085119526
Connection: keep-alive

blanksoul12

Sub test() '主體代碼
    Dim strText As String
    Header = Array("日期", "代碼", "名稱", "相關", "變動人", "變動股數", "成交均價", "變動金額(萬)", "變動原因", "變動比例(%)", "變動後持股數", "持股種類", "董監高人員姓名", "職務", "變動人與董監高的關係")
    Cells.Clear
    [a1].Resize(1, 15) = Header
    Columns("B:B").NumberFormatLocal = "@"
    With CreateObject("MSXML2.XMLHTTP")
        .Open "GET", "http://data.eastmoney.com/executive/list.html", False
        .send
        total_page = Split(Split(.responseText, "defjson: {pages:")(1), ",")(0)
    End With
   
    For y = 1 To total_page
        With CreateObject("MSXML2.XMLHTTP")
            .Open "GET", "http://datainterface.eastmoney.com/EM_DataCenter/JS.aspx?type=GG&sty=GGMX&p=" & y & "&ps=50&js=var%20PIppoeZe={pages:(pc),data:[(x)]}&rt=47155997", False
            .send
            arr = Split(Split(.responseText, "var PIppoeZe={pages:" & total_page & ",data:[")(1), """")
            For i = 1 To UBound(arr) Step 2
                brr = Split(arr(i), ",")
                Range("a65536").End(xlUp).Offset(1, 9) = brr(0)
                Range("a65536").End(xlUp).Offset(1, 12) = brr(1)
                Range("a65536").End(xlUp).Offset(1, 1) = WorksheetFunction.Text(brr(2), "000000")
                Range("a65536").End(xlUp).Offset(1, 4) = brr(3)
                Range("a65536").End(xlUp).Offset(1, 11) = brr(4)
                Range("a65536").End(xlUp).Offset(1, 5) = Format(brr(6), "#,##0.00")
                Range("a65536").End(xlUp).Offset(1, 10) = Format(brr(7), "#,##0.00")
                Range("a65536").End(xlUp).Offset(1, 6) = brr(8)
                Range("a65536").End(xlUp).Offset(1, 2) = brr(9)
                Range("a65536").End(xlUp).Offset(1, 14) = brr(10)
                Range("a65536").End(xlUp).Offset(1, 8) = brr(12)
                Range("a65536").End(xlUp).Offset(1, 7) = Format(brr(13), "#,##0.00")
                Range("a65536").End(xlUp).Offset(1, 13) = brr(14)
                Range("a65536").End(xlUp).Offset(1, 0) = brr(5)
            Next
        End With
    Next
End Sub

能力所限,六百多頁應該要很久很久,另外,http://datainterface.eastmoney.c ... amp;sty=GGMX&p=" & y & "&ps=50&js=var%20PIppoeZe={pages:(pc),data:[(x)]}&rt=47155997 最尾那個 RT 值我也找不到怎獲得,那個應該是該網站的登入記錄