网页抓取数据

笨笨网络

https://eniu.com/xuan?market%5B% ... =avg_roe&roe=20


此网站用EXCEL自带的网页导入数据，只有表头，没有内容，麻烦哪位高手给看看，弄好几天了，都没弄成功，VBA会点，但抓网页还真的看不太明白，谢谢了！

笨笨网络

自己顶一个，有没有人能帮一下帮，谢谢了！

YZC51

请参考
https://eniu.com/xuan/stock_list ... =avg_roe&roe=20

duquancai

笨笨网络 发表于 2018-6-23 22:10
自己顶一个，有没有人能帮一下帮，谢谢了！

1. Sub main()
   
2.     Dim http As Object, str$, js As Object
   
3.     Set http = CreateObject("msxml2.xmlhttp")
   
4.     http.Open "GET", "https://eniu.com/xuan/stock_list.json?market%5B%5D=hsa&roe_year=avg_roe&roe=20&sort=market_value", False
   
5.     http.send
   
6.     str = http.responseText
   
7.     Set js = CreateObject("MSScriptControl.ScriptControl")
   
8.     js.Language = "JavaScript": js.AddObject "rg", Range("a1")
   
9.     str = js.eval("'" & str & "'.replace(/\\(u[0-9a-fA-F]{4})/g, '%$1');"): Cells.Clear
   
10.     js.eval ("a=" & str & ";j=1;for(k in a[0])rg(1,j++)=k;for(i=0;i<a.length;i++){j=1;for(k in a[i])rg(i+2,j++)=a[i][k];};")
    
11.     MsgBox "OK!"
    
12. End Sub

复制代码

Kaohsing

duquancai 发表于 2018-6-24 09:27

网址需要改成3楼的网址。

duquancai

Kaohsing 发表于 2018-6-24 10:19
网址需要改成3楼的网址。

我测试了，这个网址，好像也行吧！

duquancai

笨笨网络 发表于 2018-6-23 22:10
自己顶一个，有没有人能帮一下帮，谢谢了！

Unicode字符，我测试了，可以不用转码也行！

1. Sub main()
   
2.     Dim http As Object, str$, js As Object
   
3.     Set http = CreateObject("WinHttp.WinHttpRequest.5.1")
   
4.     http.Open "GET", "https://eniu.com/xuan/stock_list.json?market%5B%5D=hsa&roe_year=avg_roe&roe=20&sort=market_value", False
   
5.     http.send
   
6.     str = http.responseText
   
7.     Set js = CreateObject("MSScriptControl.ScriptControl")
   
8.     js.Language = "JavaScript": js.AddObject "rg", Range("a1"): Cells.Clear
   
9.     js.eval ("a=" & str & ";j=1;for(k in a[0])rg(1,j++)=k;for(i=0;i<a.length;i++){j=1;for(k in a[i])rg(i+2,j++)=a[i][k];};")
   
10.     MsgBox "OK!"
    
11. End Sub

复制代码