Excel中通过VBA访问API

debugcn 发表于 Dev

尼可·迪图

我需要登录这个 API：http : //demo-api.primary.com.ar : 8081/pbcp/rest/users/login

有一个包含所有信息的快速入门指南，但我从未使用过这些说明，我不知道如何在 Excel 中执行宏来连接然后获取市场数据

我在 Excel 中尝试了不同的方法，但无法使其工作。我的最后一次尝试是通过WinHttp.WinHttpRequest.5.1cUrl 中的 express 之类的标头发送，但错误是系统性的。

这是我的代码，它是从网络中提取的不同代码位的汇编。

curl -X POST --header 'Content-Type: application/json' --header 'Accept: application/json' -d '{
  "username": "Demo-User",
  "password": "ApiEx@mpl3"
}' 'http://demo-api.primary.com.ar:8081/pbcp/rest/users/login'

我的代码：

Sub prueba()

Dim oRequest As Object
Set oRequest = CreateObject("WinHttp.WinHttpRequest.5.1")

Dim h1 As String
Dim h2 As String

oRequest.Open "POST", "http://demo-api.primary.com.ar:8081/pbcp/rest/users/login"
oRequest.SetRequestHeader "Content-Type", "application/json", "Accept", "application/json" ''Content-Type: application/json'

Dim s As String
s = Chr(34) & "username" & Chr(34) & ":" & Chr(34) & "Demo-User" & Chr(34) & "," & Chr(34) & "password" & Chr(34) & ":" & Chr(34) & "ApiEx@mpl3" & Chr(34)

oRequest.Send s
MsgBox oRequest.ResponseText
End Sub


'Dim oRequest As Object
'Set oRequest = CreateObject("WinHttp.WinHttpRequest.5.1")
'oRequest.Open "POST", "http://demo-api.primary.com.ar:8081/pbcp/rest/users/login"
'oRequest.SetRequestHeader "Content-Typ", "application/x-www-form-urlencoded"
'oRequest.Send "var1=123&anothervar=test"
'MsgBox oRequest.ResponseText

亚历克斯 K。

您需要SetRequestHeader为每个标头和值调用，您不能将它们组合起来
请求是 JSON，但您省略了 {}

oRequest.Open "POST", "http://demo-api.primary.com.ar:8081/pbcp/rest/users/login"
oRequest.SetRequestHeader "Content-Type", "application/json"
oRequest.SetRequestHeader "Accept", "application/json"

Dim s As String
s = "{" & Chr(34) & "username" & Chr(34) & ":" & Chr(34) & "Demo-User" & Chr(34) & "," & Chr(34) & "password" & Chr(34) & ":" & Chr(34) & "ApiEx@mpl3" & Chr(34) & "}"

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。