我有一个现有的VBScript,它调用一个应用程序,然后循环,如果应用程序通过用户干预退出,如果某个用户登录,否则它运行资源管理器:
' Declare variables
dim fso
dim shell
dim oWshNet
set shell = CreateObject("WScript.Shell")
' get name of user logging in
set oWshNet = Wscript.CreateObject("Wscript.Network")
sUser = oWshNet.Username
'
在excel VBA中,如何编写自定义函数将范围转换为json数组?
我现在只有函数签名:
Function to_json(input As Range)
End Function
我需要将输入转换为json数组,如下所示
[
[4,"foo"],
["bar",5]
]
我该怎么做?
它的最终目标是将json发布到web服务,以类似的格式获得响应,并将其作为range对象返回。
编辑:输入范围可以包括数字和字符串的任意组合。我需要将它们复制到一个2维的json数组中,如示例所示。注意,我需要json数组,而不是json对象。
我搜索了一段时间,但找