Excel 求助各位大侠VBA代码如何抓取网页JSON数据

基本上和JS的代码差不多哦，使用XML>Option Explicit

Sub xxx()

  Dim >

如果是数组型的Json数据，那么用循环分别取出后，再用javascript动态添加到table里。例如：

假设获得的json是{“td1”:"testtd1","td2":"testtd2"}

for (var key in json) {

var tbody = documentgetElementById("tableId")getElementsByTagName("TBODY")[0];

var tr = documentcreateElement("tr");

var td = documentcreateElement("td");

var td_txt = documentcreateTextNode(json[key]);

tdappendChild(td_txt);

trappendChild(td);

tbodyappendChild(tr);

}

JSP页面上写的是后台的一些代码，用ajax取得的json数据由于不会再跑JSP画面，所以要用前台的javascript动态实现。

$ajax({

url:"testjson",

type:"GET",

data:"json",

},success:function(data){

$("#date")text(datastartTime);//给相应的位置设值

});

var json = { contry:{ area:{ man:"12万", women:"10万" } } };

//方式一：使用eval解析

var obj = eval(json);

alert(objconstructor);

alert(objcontryareawomen);

//方式二：使用Funtion函数

var strJSON = "{name:'json name'}";//得到的JSON

var obj = new Function("return" + strJSON)();//转换后的JSON对象

alert(objname);//json name

alert(objconstructor);

//复杂一点的json数组数据的解析

var value1 = [{"c01":"1","c02":"2","c03":"3","c04":"4","c05":"5","c06":"6","c07":"7","c08":"8","c09":"9"}, {"c01":"2","c02":"4","c03":"5","c04":"2","c05":"8","c06":"11","c07":"21","c08":"1","c09":"12"}, {"c01":"5","c02":"1","c03":"4","c04":"11","c05":"9","c06":"8","c07":"1","c08":"8","c09":"2"}]; var obj1 = eval(value1);

alert(obj1[0]c01);

//复杂一点的json的另一种形式

var value2 = {"list":[ {"password":"1230","username":"coolcooldool"}, {"password":"thisis2","username":"okokok"}], "array":[{"password":"1230","username":"coolcooldool"},{"password":"thisis2","username":"okokok"}]};

var obj2 = eval(value2);

alert(obj2list[0]password);

一、使用js获取接口数据的方法

①$get(url,[data],[callback])

url:请求的地址;data:请求数据的列表;callback:请求成功后的回调函数,该函数接受两个参数,第一个为服务器返回的数据,第二个为服务器的状态,是可选参数。

其中服务器返回数据的格式其实是字符串形式,并不是我们想要的JSON数据格式。上例子：

var url3 = '>

如果你有一组数据的话可以用easyui表格loadData的方法来实现$("#dg")datagrid('loadData',data);使用easyuidatagridloadData的方法来实现你的data数据格式要和dg的columns相对应才行easyui我们一般也是这样做的单独用个ajax *** 作获取到数据然后绑定一次就行了

以上就是关于Excel 求助各位大侠VBA代码如何抓取网页JSON数据全部的内容，包括:Excel 求助各位大侠VBA代码如何抓取网页JSON数据、怎么提取json里的数据变成EXCEL、datetable 获取到json数据,可以输出，当某一列的数据内容少时可以显示，数据内容大时，数据不填充表格等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！