Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/actionscript-3/7.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Vba 如何在Visual Basic中读取JSON代码?_Vba - Fatal编程技术网

Vba 如何在Visual Basic中读取JSON代码?

Vba 如何在Visual Basic中读取JSON代码?,vba,Vba,我有这种形式的JSON数据 [{单词:某物,id:1023] 如何使用Visual Basic从JSON数据中获取word的值? 谢谢。获取此文件的副本,将其添加到您的VBA项目中。您需要添加对Microsoft脚本运行时的引用,以便将解析字符串的结果存储在字典中。完成后,您可以解析JSON,如下所示: Sub ParseSomeJson() Dim jsonString As String Dim json As Object jsonString = "{""word

我有这种形式的JSON数据 [{单词:某物,id:1023] 如何使用Visual Basic从JSON数据中获取word的值? 谢谢。

获取此文件的副本,将其添加到您的VBA项目中。您需要添加对Microsoft脚本运行时的引用,以便将解析字符串的结果存储在字典中。完成后,您可以解析JSON,如下所示:

Sub ParseSomeJson()
    Dim jsonString As String
    Dim json As Object
    jsonString = "{""word"":""something"", ""id"":1023}" 'I adjusted this 
    Set json = JsonConverter.ParseJson(jsonString)
    Debug.Print json("word"), json("id")
End Sub
你会回来的:

something      1023 

使用JSON解析器——Tim Hall编写了一个相当不错的解析器,值得注意的是,Tim Hall还编写了一个替换脚本的插件。字典也可以在VBA-TOOLS GitHub org下找到,它可以在Windows上运行脚本,在Mac上运行。