翻译“ -d”在执行HTTP请求时在VBA中

Question

我尝试通过发送带有VBA的HTTP请求来获取由“ Template_ID”过滤的IAUDITOR的列表。目前，我有此代码返回所有操作的列表：

Sub Get_Data()
Dim hReq As Object
Dim sht As Worksheet
Dim authKey As String
Dim response As String

authKey = "d8a0df7d7e1XXXXXXXXXXXXXXXXXXXXXXXXff3c765cf2fcf"

Set sht = Sheets(1)

Dim strUrl As String
    strUrl = "https://api.safetyculture.io/tasks/v1/actions/list"
Set hReq = CreateObject("MSXML2.XMLHTTP")
    With hReq
        .Open "POST", strUrl, False
        .SetRequestHeader "Authorization", "Bearer " & authKey
        .SetRequestHeader "Content-Type", "application/json"
        .Send
    End With


    response = hReq.ResponseText
    'MsgBox Len(response)
    sht.Range("A1") = response
End Sub

现在我想将过滤器“翻译”到VBA，但我不知道该怎么做。

这是我有关网站的API文档： https://developer.safether.safetyculture.io/#actions

因此，我想在VBA中翻译的内容在HTTP代码中看起来像这样：

curl -X POST "https://api.safetyculture.io/tasks/v1/actions/list" \
-H "Authorization: Bearer {api_token}" \
-d {
  "template_id": {
    "operator": 7,
    "value": ["fc2e53f6-4712-4ca5-b681-aba3ac954217"]
  }
}

我非常感谢您提供的任何帮助。

问候， 加宾

Answer 1

根据此线程：

您可以通过将其作为发送函数中的值传递给帖子请求，将数据添加到帖子请求中：

hReq.send "'template_id': {'operator': 7,'value': ['fc2e53f6-4712-4ca5-b681-aba3ac954217']}"

值由A＆amp;字符串中的符号。

Answer 2

我做到了！！！ ：d

这是我的最终代码：

Sub Get_Data()
Dim hReq As Object
Dim sht As Worksheet
Dim authKey As String
Dim response As String
Dim response_objet As Object
Dim Body As String

authKey = "d8a0df7d7e19XXXXXXXXXXXXXXXXc65ec9eff3c765cf2fcf"

Body = "{ ""filters"": [ { ""template_id"": { ""value"": [""884b95df35104f4792a3c1fdfed63f0e""]}}]}"
Set sht = Sheets(1)
sht.Range("A3") = Body
Dim strUrl As String
    strUrl = "https://api.safetyculture.io/tasks/v1/actions/list"
Set hReq = CreateObject("MSXML2.XMLHTTP")
    With hReq
        .Open "POST", strUrl, False
        .SetRequestHeader "Authorization", "Bearer " & authKey
        .SetRequestHeader "Content-Type", "application/json"
        .Send Body
    End With


    response = hReq.ResponseText
    'MsgBox Len(response)
    sht.Range("A1") = response
    Set response_objet = JsonConverter.ParseJson(response)
    For Each Item In response_objet
        a = a + 1
        Sheets("Biblio").Range("B" & a) = Item
    Next Item
End Sub

非常感谢@codingwolf，他把我朝着正确的方向。

祝您有美好的互联网。
加宾，