如何在vba word中读取json文件并将json键值存储在数组中？

Question

{
    "IOP": {
        "journal": ["�ref_auSurname", "�ref_auGivenName", "�ref_auCollab", "�ref_etal", "�ref_titleArticle", "�ref_titleJournal", "�ref_pubdateYear", "�ref_volumeNumber", "�ref_issueNumber", "�ref_supplement", "�ref_pageFirst", "�ref_pageLast", "�ref_accessDate", "�ref_URL"],
        "book": ["�ref_auSurname", "�ref_auGivenName", "�ref_etal", "�ref_titleBook", "�ref_edition", "�ref_publisherLocation", "�ref_publisherName", "�ref_pubdateYear"]
            },
    "LWW": {
        "journal": [�ref_auSurname", "�ref_auGivenName", "�ref_etal"],
        "book": []
           }
}

编辑：以下评论中的代码：

Dim JsonTS As TextStream
Dim JsonText As String
Set JsonTS = FSO.OpenTextFile("C:\Users\9105122\Desktop\refspec.json", ForReading)
JsonText = JsonTS.ReadAll
Set JsonParse = JsonConverter.ParseJson(JsonText)

以上Json代码是我的输入文件。如果我运行JsonConverter（来自Tim Hall的VBA-JSON转换器），直到＆＃34;]＆＃34;在IOP中 - ＆gt;期刊，它正在执行，并且在此之后将值存储在集合中＆＃34;]＆＃34;在IOP中 - ＆gt;日志。我得到的错误是＃34;错误的参数数量或无效的属性赋值＆＃34;。我无法读取IOP中的内容 - ＆gt;书。

Answer 1

要将DSV分配给数组，请使用Array()函数或Split()函数。