gpt4 book ai didi

json - 修改 VBA JSON 文件

转载 作者:行者123 更新时间:2023-12-04 22:34:08 25 4
gpt4 key购买 nike

我想使用 vba 在 excel 中修改 JSON 文件。

所以我有这个 JSON 文件

{
"root": [{
"STATUS_RESPONSE": {
"STATUS": {
"STATUS": {
"OWNER": "root",
}
},
"REQ_ID": "00000",
"RESULT": [{
"USER": {
"BUSINESS_ID": "A",
"USER_NUMBER": "45",
"LANGUAGE": "F",
}
},
{
"USER_SESSION": {
"USER_ID": "0000001009",
"HELP_URL": "http://google.com",
}
},
{
"USER_ACCESS": {
"SERVICES_ROLE": "true",
"JOURNALLING": "true",

}
}]
}
}]
}

我只想修改“BUSINESS_ID”

然后我可以使用这个导出到同一个 JSON 文件
   Private Sub CommandButton2_Click()
Dim rng As Range, items As New Collection, myitem As New Dictionary, i As Integer, cell As Variant, myfile As String
Dim FSO As New FileSystemObject
Dim buss As String
Dim JsonTS As TextStream
Set rng = Range("A2")
Set JsonTS = FSO.OpenTextFile("test.json", ForReading)
JsonText = JsonTS.ReadAll
JsonTS.Close
Set JSON = ParseJson(JsonText)
JSON("root")(1)("STATUS_RESPONSE")("RESULT")(1)("USER")("BUSINESS_ID") = Sheets(1).Cells(2, 1).Value
buss = JSON("root")(1)("STATUS_RESPONSE")("RESULT")(1)("USER")("BUSINESS_ID")
myfile = "test.json"
Open myfile For Output As #1
Write #1, buss
Close #1
End Sub

我可以编辑单元格,这将替换 JSON 文件,但它会从上面的 JSON 文件中删除整个结构。

如果我将业务 ID 更改为 C,我会在 json 文件中得到类似的内容:
"C"

有没有一种方法可以让我在现有文件中修改我需要的东西而不会消失

最佳答案

您应该导出整个 JSON对象,而不仅仅是它的一部分。

Write #1, JsonConverter.ConvertToJson(JSON, Whitespace:=2)

关于json - 修改 VBA JSON 文件,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/50726467/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com