Json常用來存儲(chǔ)數(shù)據(jù)，使用ScriptControl對(duì)象方法將Json數(shù)據(jù)提取到Excel中。

代碼如下：

Sub?JsonToRng()? ??

Dim?sJson$,?js$

sJson?=?Range("A1") '?JSON?數(shù)據(jù)在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, //起始單元格的相對(duì) 行、列 偏移

? ? d = {}; //空字典

for (r in j) {

? ? row++; //行 偏移

? ? for (k in j[r]) {

? ? ? ? if (!d[k]) {? //如果key不存在，則添加 key 和 標(biāo)題行

? ? ? ? ? ? d[k] = c++; //列 偏移 和 key 相關(guān)聯(lián)

? ? ? ? ? ? rng(1, d[k]) = k; //把key寫到 標(biāo)題行

? ? ? ? }

? ? ? ? rng(row, d[k]) = j[r][k]; //把Value寫到 單元格

? ? }

}

注：以上代碼來自網(wǎng)絡(luò)