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

Question

我尝试通过发送带有 VBA 的 HTTP 请求从 iAuditor 中获取按“template_id”过滤的操作列表。 目前我有这段代码返回所有操作的列表：

 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.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

根据这个线程： https://www.vbforums.com/showthread.php?592624-Posting-data-using-XMLHttpRequest

您可以通过将数据作为发送 function 中的值传递来将数据添加到 POST 请求：

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

值由 string 内的 & 符号区分。

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，他让我朝着正确的方向前进。

有一个美好的一天互联网。 加宾，