使用 VBA-Web 库将 POST JSON 请求正文的格式（包含嵌套字典和列表）发送至 API

Question

我正在尝试将 POST 请求的请求正文格式化为 DHL API。在此请求正文中嵌套了字典和列表。

我找到了 VBA-Web 库的格式化 POST 请求主体的示例，但没有一个具有嵌套字典和列表。
VBA-Web 库：https://github.com/VBA-tools/VBA-Web
VBA-Web 库文档：https://vba-tools.github.io/VBA-Web/docs/#/WebRequest/Body

这个例子也没有展示如何实现嵌套字典或列表：
在 Excel VBA 中将 JSON 发布到网络

Answer 1

这是使用 VBA-WEB 的基本示例

Sub Tester()

    Dim Body As New Dictionary
    
    Body.Add "key1", 22
    Body.Add "key2", "Hello"
    Body.Add "key3", New Dictionary
    With Body("key3")
        .Add "subKey1", 99
        .Add "subkey2", "World"
        .Add "subkey3", New Collection
        With .Item("subkey3")
            .Add 1
            .Add 2
            .Add 3
        End With
    End With
    
    Debug.Print WebHelpers.ConvertToJson(Body, 2)

End Sub

输出：

{
  "key1": 22,
  "key2": "Hello",
  "key3": {
    "subKey1": 99,
    "subkey2": "World",
    "subkey3": [
      1,
      2,
      3
    ]
  }
}