VBA JSON 将请求与串联

Question

这就是我构造通过PUT方法发送的JSON数组的方式，其中我从excel中获取一些单元格值：

body = "{""note"":""" & Cells(RowNote, 3).Value & """,""uniqueIdentifier:""" & Cells(RowNote, 2).Value & ",""IdentifierType"":""ACCOUNT_ID"",""CustomerId"":" & userID & "}"

但是我得到了错误 13 不匹配。

这是可以正确放置的 JSON 字符串的示例：

{"note":"call again", "uniqueIdentifier":1716, IdentifierType":"ACCOUNT_ID", "CustomerId":927560}

括号内应更正哪些内容？

Answer 1

如果您不想在整数周围使用"，请尝试body = "{""note"":""" & Cells(RowNote, 3).Value & """,""uniqueIdentifier"":" & Cells(RowNote, 2).Value & ",""IdentifierType"":""ACCOUNT_ID"",""CustomerId"":" & UserId & "}"。