沃尔玛 API 令牌 VBA

问题描述

我正在尝试将我的 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)



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

解决方法

暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!

如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@)