谁能帮我把这个网站的表里的数据抓到excel里呀

wjbo1234

网址是：https://www.jisilu.cn/data/cbnew/#cb
网站上的数据可以复制到excel里，但是手动太麻烦了
我试下从excel的数据网站导入，但是数据导不进来

chentonny

数据是异步加载的。

wjbo1234

我看有个置顶的帖子说用fiddler抓包，我下了软件试下根本抓不到这个网址的数据呀。

Kaohsing

1. Request URL: https://www.jisilu.cn/data/cbnew/cb_list/?___jsl=LST___t=1580428175887
   
2. Request Method: POST
   
3. Status Code: 200 OK
   
4. Remote Address: 182.92.149.237:443
   
5. Referrer Policy: no-referrer-when-downgrade
   
6. Accept: application/json, text/javascript, */*; q=0.01
   
7. Accept-Encoding: gzip, deflate, br
   
8. Accept-Language: zh-CN,zh;q=0.9
   
9. Connection: keep-alive
   
10. Content-Length: 121
    
11. Content-Type: application/x-www-form-urlencoded; charset=UTF-8
    
12. Cookie: kbzw__Session=rfcrdarjf4e73sleq9tcd5fak4; Hm_lvt_164fe01b1433a19b507595a43bf58262=1580428137; kbz_newcookie=1; Hm_lpvt_164fe01b1433a19b507595a43bf58262=1580428176
    
13. Host: www.jisilu.cn
    
14. Origin: https://www.jisilu.cn
    
15. Referer: https://www.jisilu.cn/data/cbnew/
    
16. User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/69.0.3947.100 Safari/537.36
    
17. X-Requested-With: XMLHttpRequest
    
18. ___jsl: LST___t=1580428175887
    
19. fprice=&tprice=&volume=&svolume=&premium_rt=&ytm_rt=&rating_cd=&is_search=N&btype=&listed=Y&sw_cd=&bond_ids=&rp=50&page=1

复制代码

wjbo1234

Kaohsing 发表于 2020-1-31 07:52

你好这是什么软件的代码呀，好像不是excel的。

Kaohsing

f12 数据地址: https://www.jisilu.cn/data/cbnew ... T___t=1580428175887
POST 方式

参数：fprice=&tprice=&volume=&svolume=&premium_rt=&ytm_rt=&rating_cd=&is_search=N&btype=&listed=Y&sw_cd=&bond_ids=&rp=50&page=1

Kaohsing

chis3

Sub test()
    Dim winhttp As Object
    Dim json As Object
    Dim rows, id, element, price, i As Byte
    Dim arr(1 To 250, 1 To 10)
    Set winhttp = CreateObject("winhttp.winhttprequest.5.1")
    Set json = CreateObject("msscriptcontrol.scriptcontrol")
    With winhttp
        .Open "POST", "https://www.jisilu.cn/data/cbnew/cb_list/?___jsl=LST___t=1580436871866", False
        .setrequestheader "referer", "https://www.jisilu.cn/data/cbnew/"
        .SEND "fprice=&tprice=&volume=&svolume=&premium_rt=&ytm_rt=&rating_cd=&is_search=N&btype=&listed=Y&sw_cd=&bond_ids=&rp=50&page=1"
        With json
            .Language = "jscript"
            .addcode "var d=" & winhttp.responsetext
            Set json = json.codeobject.d.rows
            For Each element In json
                i = i + 1
                arr(i, 1) = element.id
                arr(i, 2) = element.cell.bond_nm
                arr(i, 3) = element.cell.price
            Next
        End With
    End With
    [a1].Resize(250, 10) = arr
End Sub

wjbo1234

Kaohsing 发表于 2020-1-31 09:54
f12 数据地址: https://www.jisilu.cn/data/cbnew/cb_list/?___jsl=LST___t=1580428175887
PO ...

谢谢,帮我把最难的事情搞定了。

wjbo1234

chis3 发表于 2020-1-31 10:36
Sub test()
    Dim winhttp As Object
    Dim json As Object

谢谢哈，我再研究下。