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写到 单元格

}

}

注：以上代码来自网络