沃尔玛 API 令牌 VBA

时间:2021-07-23 01:45:41

标签: vba ms-access post walmart-api

我正在尝试将我的 Access db 连接到 Wallmart 的 API,但出现此错误.. {"error":[{"code":"SYSTEM_ERROR.GMP_GATEWAY_API","info":"System encountered some internal error.","severity":"ERROR","category":"DATA","causes":[],"errorIdentifiers":{}}]}

这是我的代码:

 Dim s As String
  
Dim xmlhttp As New MSXML2.XMLHTTP60
 
 Me.Refresh
 
WalmartAPIUserKey =...
WalmartSecretKey=....
encodeData = Base64Encode(WalmartAPIUserKey & ":" & WalmartSecretKey)

xmlhttp.Open "POST", "https://marketplace.walmartapis.com/v3/token", False
xmlhttp.setRequestHeader "Authorization", "Basic " & encodeData
xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xmlhttp.setRequestHeader "Accept", "application/json"
xmlhttp.setRequestHeader "WM_SVC.NAME", "Walmart Marketplace"
xmlhttp.setRequestHeader "WM_QOS.CORRELATION_ID", "123456789c"
xmlhttp.setRequestHeader "WM_CONSUMER.CHANNEL.Type", "........"


s = "grant_type=client_credentials"
xmlhttp.send s

MsgBox (xmlhttp.responseText)
Debug.Print (xmlhttp.responseText)



有人知道这里出了什么问题吗?

0 个答案:

没有答案