Json常用来存储数据，使用ScriptControl对象方法将Json数据提取到Excel中。
代码如下：
Sub JsonToRng()
Dim sJson$, js$
sJson = Range("A1") ' JSON 数据在A1
js = "var r,k,row=c=1,d={};for(r in j){row++;for(k in j[r]){if(!d[k]){d[k]=c++;rng(1,d[k])=k;}rng(row,d[k])= j[r][k];}}"
js = "j=" & sJson & ";" & js
With CreateObject("ScriptControl")
.Language = "JScript"
.AddObject "rng", Range("A3") ' A3 是起始单元格，可以改为别的单元格
.eval (js)
End With
End Sub
JS说明
//j= sJson ， rng 是用 AddObject 加入的单元格
var r, k,
row = c = 1, //起始单元格的相对 行、列 偏移
d = {}; //空字典
for (r in j) {
row++; //行 偏移
for (k in j[r]) {
if (!d[k]) { //如果key不存在，则添加 key 和 标题行
d[k] = c++; //列 偏移 和 key 相关联
rng(1, d[k]) = k; //把key写到 标题行
}
rng(row, d[k]) = j[r][k]; //把Value写到 单元格
}
}
注：以上代码来自网络
