1

如何访问key从 JSON 解码的这个变量？我使用了Excel VBA 中的示例： Parsed JSON Object Loop。即使我将其更改为小写，VBA 编辑器也会不断将大小写更改为大写。我还尝试注释掉和取消注释小写key，但它仍然会改变它。我认为这个案子并不重要，但它在抱怨，我不知道为什么，因为这个领域显然存在。

伊姆古尔

4

1 回答 1

2

我必须Private sc As ScriptControl在模块顶部添加，否则它不起作用。即使Dim sc as ScriptControl在函数内也行不通。我还创建了一个 Javascriptget函数来检索值。

Private sc As ScriptControl
...
Function jsonDecode(jsonString As Variant)
    Set sc = New ScriptControl
    sc.Language = "JScript"
    sc.AddCode "Object.prototype.get=function( i ) { return this[i]; };"
    Set jsonDecode = sc.Eval("(" + jsonString + ")")
End Function

...

Set arr = jsonDecode(objHTTP.ResponseText)
Debug.Print arr.get("key")
于 2013-10-24T17:51:38.953 回答