使用Excel来拉从API数据(Using Excel to pull data from API)

我是一个完整的新手，当涉及到编码，会很感激你在一个项目的帮助。

我想从一个网站（网址资源：提供了一个API拉在Excel中的数据http://api.opensignal.com/v2/networkrank.json ）。

可否请您指点我应该如何去做。或者，你能不能请一个示例代码帮助。

非常感谢

Answer 1:

我做了VBA的Web（Excel的REST）用于访问Web服务和API与Excel。虽然我鼓励你寻找到如何执行与Excel（寻找的XMLHTTPRequest）Web请求教程，我发现这是一个有点棘手上手，特别是如果你是新来编程，所以这里是一些样本基于代码OpenSignal的例子：

Sub GetNetworkRank(Latitude As Double, Longitude As Double)
    ' Create client for executing requests
    Dim Client As New WebClient
    Client.BaseUrl = "http://api.opensignal.com/v1/"

    ' Create specific request
    Dim Request As New WebRequest
    Request.Resource = "networkrank.json"
    ' Request.Method = WebMethod.HttpGet is default
    ' Request.Format = WebFormat.Json is default

    Request.AddQuerystringParam "lat", Latitude
    Request.AddQuerystringParam "lng", Longitude

    ' distance=20 -> 20 km around lat-lng -> 40km x 40km bounding box
    Request.AddQuerystringParam "distance", 20

    ' network_id=3 -> 3G networks
    Request.AddQuerystringParam "network_id", 3

    Request.AddQuerystringParam "apikey", "YOUR_API_KEY"

    ' Get response from request
    Set Response = Client.Execute(Request)
    ' -> GET http://api.opensignal.com/v1/networkrank.json?lat=...&lng=...&...

    If Response.StatusCode = 200 Then
        ' Get network rank
        ' (json response is automatically parsed)
        Response.Data("networkRank")("...")
    Else
        Debug.Print "Error: " & Response.StatusCode & " " & Response.Content
    End If
End Sub