我们如何从Excel宏（vba）使用平稳的API？

Question

是否有插件或库可用于从Excel中访问稳定的API（可能使用宏），然后将响应存储在某处（可能在工作表中）。

赦免缺少的示例代码。我不是VBA程序员。

Answer 1

您可以使用VBA中的MSXML库。然后，您可以创建一个XMlHTTP请求并执行GET或POST等操作。下面是一个代码示例。使用后期绑定，即无需先引用库：

Option Explicit 

Sub Test_LateBinding() 

    Dim objRequest As Object 
    Dim strUrl As String 
    Dim blnAsync As Boolean 
    Dim strResponse As String 

    Set objRequest = CreateObject("MSXML2.XMLHTTP") 
    strUrl = "https://jsonplaceholder.typicode.com/posts/1" 
    blnAsync = True 

    With objRequest 
     .Open "GET", strUrl, blnAsync 
     .SetRequestHeader "Content-Type", "application/json" 
     .Send 
     'spin wheels whilst waiting for response 
     While objRequest.readyState <> 4 
      DoEvents 
     Wend 
     strResponse = .ResponseText 
    End With 

    Debug.Print strResponse 

End Sub 

我使用这个测试网站 - JSONPlaceholder - 调用一个RESTful API。这是响应：

注意，我发现，调用这个网站用这种方法失败，如果你一）进行同步的请求，或者b）使用http不https。