我正在尝试编写 VBA 将 json 发布到 api 并将结果解析到工作表中。我可以生成 JSON，并且有信心可以将结果解析为我需要的内容。
我知道有一些在线工具可以将 json 转换为 vba 并返回，还有将浏览器插件转换为发布请求的工具，但我是办公室中唯一可以执行此操作的工具，因此如果我生病或休假，我想将其自动化。为此，我需要发送 json 并可能存储响应，以便我可以解析它。
我是编码新手，所以发布这样的请求超出了我的头脑。到目前为止，我有以下代码来编写json。我将不胜感激任何帮助我开始。如果需要，我可以发布我想发布的 json 或 api 示例。
为糟糕的代码道歉我知道我可以改进它但想要得到 json 响应，因为我认为这将是最具挑战性的部分。
编辑已经取得了一些进展。现在可以向 URL 发送 JSON 字符串并获得响应。但是它总是返回失败：
"{ ""message"": ""发生错误。"" }"
如果我使用 httpRequestor 手动发送 json，结果将正确返回。这似乎表明代码中的某处 JSON 在发布时被混淆或以某种方式修改。
更新了下面的代码。（已删除对实际数据的任何引用）
编辑 2 已修复并正常工作。删除了引号
objHTTP.send ("Json")
Private Sub CommandButton21_Click()
Dim h_1 As String
Dim h_2 As String
h_1 = Range("A1")
h_2 = Range("B1")
h_3 = Range("C1")
h_4 = Range("D1")
h_5 = Range("E1")
h_6 = Range("F1")
sv_1 = 2
sv_2 = 2
sv_3 …