vba - 沃尔玛 API 令牌 VBA

Question

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

有谁知道这里有什么问题？