将每个循环的递归jQuery转换为VBA脚本控件的JavaScript

我尝试使用以下脚本来迭代嵌套的JSON对象。它在html中运行良好，但是，我从Excel VBA ScriptControl对象调用它。当我这样做时，它会为“$”返回一个“未定义”错误

我假设这是因为VBA脚本控件不允许jQuery（这是真的吗？）

所以。。。能否帮助您将下面的“$.each（）”部分转换为javascript

代码：

---

您可以创建自己的

每个
函数

function each(obj, cb) {
    for (var key in obj) {
        cb(key, obj[key]);
    }
}

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);
        } else {
            result += key + ' : ' + value + ', ';
        }
    } 
    return result;
}

function each(obj, cb) {
    for (var key in obj) {
        cb(key, obj[key]);
    }
}

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);
        } else {
            result += key + ' : ' + value + ', ';
        }
    } 
    return result;
}