Javascript 使用VBA/JS使用包含空格的键解析JSON

我设法将解析特定JSON的VBA代码放在一起：

Set S=CreateObject（“脚本控件”）
S.Language=“JScript”
S.AddCode“函数键（O）{var k=new Array（）；for（var x in O）{k.push（x）；}返回k；}”
设置JSON=S.Eval（（“&H.responsetext&”）
设置JSON=CallByName（JSON，“responses”，VbGet）
设置JSON=CallByName（JSON，“0”，VbGet）
设置JSON=CallByName（JSON，“聚合”，VbGet）
设置JSON=CallByName（JSON，“2”，VbGet）
设置JSON=CallByName（JSON，“bucket”，VbGet）
Set Keys=S.Run（“Keys”，JSON）
Dim jsonWS作为字符串，jsonAA作为字符串，jsonTS作为字符串
对于每个键中的键
Set TableRow=CallByName（JSON、键、VbGet）
jsonWS=CallByName（TableRow，“key”，VbGet）
设置TableRow=CallByName（TableRow，“3”，VbGet）
Set TableRow=CallByName（TableRow，“bucket”，VbGet）
设置TableRow=CallByName（TableRow，“项目1”，VbGet）
jsonAA=CallByName（TableRow，“key”，VbGet）
设置TableRow=CallByName（TableRow，“1”，VbGet）
jsonTS=CallByName（表格行，“值作为字符串”，VbGet）
下一键

然而，我遇到了一个问题。当我运行此代码时，它会在引用“Item 1”的行停止，并抛出以下错误：

“对象不支持此属性或方法”

我想在使用包含空格的名称时会出现问题。 我试过多个括号和引号，但都没用。我无法解决这个问题，因为我的javascript知识是不存在的

JSON结构如下所示：

---

这可能会有帮助，我尝试添加括号-[“项目1”]而不是“项目1”，但似乎没有帮助上面的“项目1”在哪里？目前我还没有机会复制这个：-（@QHarr）这是我代码底部的第五行。JSON的结构看起来是这样的：我的坏，现在可以看到了