Tag: scriptcontrol

转换recursionjQuery用于VBA脚本控制的JavaScript的每个循环

我试图使用下面的脚本遍历嵌套的JSON对象。 它在html中工作正常，但是，我从Excel VBA ScriptControl对象调用它。 当我这样做，它会返回一个“未定义”错误的“$” 我假设这是因为VBA ScriptControl不允许使用jQuery（是这样吗？） 所以…可以帮助将下面的“$ .each（）”部分转换为javascript？ 码： function jsonFunction() { var jsonObj = { Item1: 'This is a test', Item2: { Value1: '100', Value2: '200' }, Item3: { Value1: '101', Value2: '201' }, }; var result = ''; $.each(jsonObj, jsonLoop); function jsonLoop(key, value) { if (typeof value === 'object') { $.each(value, jsonLoop); […]

Excel VBA：parsing的JSON对象循环

下面的示例…从parsing的JSONstring中循环一个对象返回一个错误“对象不支持此属性或方法”。 任何人都可以build议如何使这项工作？ 非常感谢（我在这里问了6个小时之前寻找答案）。 将JSONstringparsing到对象中的function（此工作正常）。 Function jsonDecode(jsonString As Variant) Set sc = CreateObject("ScriptControl"): sc.Language = "JScript" Set jsonDecode = sc.Eval("(" + jsonString + ")") End Function 循环通过parsing对象返回错误“对象不支持此属性或方法”。 Sub TestJsonParsing() Dim arr As Object 'Parse the json array into here Dim jsonString As String 'This works fine jsonString = "{'key1':'value1','key2':'value2'}" Set arr = jsonDecode(jsonString) MsgBox arr.key1 'Works […]