Excel VBA中的RESTful API调用

我试图使用Excel VBA访问http://api.football-data.org/index的在线API，最终通过点击一个button来填充Excel表格。 目前我有：

Sub apiTest() Dim oRequest As Object Set oRequest = CreateObject("WinHttp.WinHttpRequest.5.1") oRequest.Open "GET", " http://api.football-data.org/v1/competitions/354/fixtures/?matchday=22 ", False oRequest.SetRequestHeader "X-Auth-Token", "replace this with my api token" oRequest.Send MsgBox oRequest.ResponseText End Sub

根据该网站，我所需要做的就是将X-Auth-Token字段添加到标题，它应该工作。 然而，当我尝试运行这个响应正文时说：“你正在寻找的资源是受限制的”。 我使用WinHTTPRequest不正确？

Answer 1

我已经检查过它的文档 。 错误（403受限资源）与下列事项有关：

• 该资源仅适用于经过身份validation的客户端
• 该资源只能用于捐赠客户
• 该资源在您正在使用的API版本中不可用

另外，X-Response-Control似乎被包含在请求头中（请参阅文档）。