如何用vba 提取网页数据至excel表

mxqchina

http://chemours-site.force.com/CRG_TlargiGuide

如何用vba 提取左边框里的信息和右边的对应的信息至excel表，谢谢各位大侠。VBA实在不熟，查看论坛提取网页的帖子似乎都不太一样。先谢谢各位。

mxqchina

http://chemours-site.force.com/CRG_TlargiGuide

mxqchina

http://chemours-site.force.com/CRG_TlargiGuide

这个连接

huang1314wei

关注一下，目标数据是一个JS函数控制的，全部数据在以下链接即可以找到
http://chemours-site.force.com/r ... ripts/tlargi.min.js
解析上述JS函数，通过VBA字符串处理或者JSON处理即可提取全部数据，今天有点晚，明天有时间的话给你写写代码

northwolves

我替黄版给你写了吧

1. Sub Test()
   
2.     Dim js As String
   
3.     With CreateObject("Microsoft.XMLHTTP")
   
4.         .Open "get", "http://chemours-site.force.com/resource/1480126687000/CRGRes/scripts/tlargi.min.js", False
   
5.         .send
   
6.         Do While Not .ReadyState = 4
   
7.             DoEvents
   
8.         Loop
   
9.         js = .responseText & ";var r,k,n=c=1,d={};for(r in db_elastomers_ratings){n++;for(k in db_elastomers_ratings[r]){if(!d[k]){d[k]=c++;rng(1,d[k])=k;}rng(n,d[k])= db_elastomers_ratings[r][k];}}" & ";" & js
   
10.     End With
    
11.     With CreateObject("ScriptControl")
    
12.         .Language = "JScript"
    
13.         .AddObject "rng", [a1]
    
14.         .eval (js)
    
15.     End With
    
16.     [a:v].Columns.AutoFit
    
17. End Sub

复制代码