如何用Excel VBA解析JSON数据

najagay

如何把JSON数据转换成EXCEL格式的文档，便于财务人员做统计用，我自已尝试了几种方法，都无功而返，请各位过走路过的大侠们助我一臂之力，万分感谢！
JSON数据格式如下：
"search_result = [ {""sn"":""篮球"",""kz"":""birinxi"",""cp"":""baishi""} , {""sn"":""报龄"",""kz"":""kazet"",""py"":""baoling""} , {""sn"":""编简"",""kz"":""taryh"",""py"":""bianjian""} , {""sn"":""白兆灯"",""kz"":""tokا"",""py"":""biannianshi""} , {""sn"":""杠铃"",""kz"":""dop"",""py"":""bieshi""}];
//alert(1);
var   str_html = ""<table>"";
    if (search_result.length == 0 ) {
  str_html = ""<tr><td>抱歉，暂时没有结果 / /td><td></td></tr>"";
     } else {
    for(var k in kz7_dict_search_result){
    v = search_result[k];
    str_html += ""<tr><td>""+v.sn+""</td><td>""+v.kz+""</td><td>""+v.py+""</td></tr>"";
}
}
    str_html +=""<tr><td colspan='2'></td></tr></table>"";
   
     document.getElementById(""search_result_div"").innerHTML = str_html;"
这么个结果，怎么将 sn、kz、cp后面的值写入到excel三个列中
我测试的代码是以下，可还是运行不成
Sub t()
Dim a, y As Object, s, json
a = Sheets("Sheet2").Range("A1").Value
Set json = CreateObject("MSScriptControl.ScriptControl")
json.Language = "JScript"
s = json.eval("var" & a & ";s='';for(x in a){ for(y in a[x]){s+=a[x][y]+'\t';}s+='\r'}")
Debug.Print s
End Sub

coby001

http://club.excelhome.net/thread-1228149-1-1.html
JSON 直写 Range，轻松完成格式转换。

wormtwo

楼上的网址不错，收藏了。

coby001

coby001 发表于 2015-9-8 00:51
http://club.excelhome.net/thread-1228149-1-1.html
JSON 直写 Range，轻松完成格式转换。

http://club.excelhome.net/forum.php?mod=redirect&goto=findpost&ptid=1228149&pid=8364134

示例~~

najagay

coby001 发表于 2015-9-8 07:27
http://club.excelhome.net/forum.php?mod=redirect&goto=findpost&ptid=1228149&pid=8364134

示例~~

首先，谢谢了，我忘了整理格式了！其二：
如果我处理的不只是A1，而是A列的所有数据时怎么办？假如，每个数组里面的数据不一定时，就很难办了

coby001

najagay 发表于 2015-9-8 10:06
首先，谢谢了，我忘了整理格式了！其二：
如果我处理的不只是A1，而是A列的所有数据时怎么办？假如，每 ...

那些例子都是技术示范。
你理解后，自己动手动脑 ，根据自己的目的来改造。
哥只能帮你到这了~~