Question

我正在尝试从货币api中获取数据。我是VBA的新手，也是JSON的新手，但我无法弄清楚如何通过HTTP传递请求....我可以获取我想要的任何数据，但不需要请求但是要将其固定下来。

API在这里：https://www.bitfinex.com/pages/api 我正在尝试传递时间戳（时间）请求。请参阅说明（粘贴在下面的网站上）

交易获取/交易/：符号获取给定符号的最新交易列表。请求 timestamp（time）：可选。仅在此时间戳或之后显示交易。 limit_trades（int）：可选。限制返回的交易数量。必须是＆gt; = 1.默认值为50。响应一系列词典： tid（整数）时间戳（时间）价格（价格）金额（十进制）交换（字符串） type（string）“sell”或“buy”（如果未定，可以是“”）

到目前为止我的代码

Private Function get_price() As String

Dim xml_a As Object

Set xml_a = CreateObject("MSXML2.XMLHTTP")

With xml_a

    .Open "Get", "https://api.bitfinex.com/v1/trades/BTCUSD", False
'' <<< something should be written here right? I just don't know what... >>>''
    .send
    get_price = .responseText
End With

Set xml_a = Nothing

End Function


Sub tester()

Dim JSON_return As Object


Set JSON_return = JSON.parse(get_price())

Debug.Print JSON_return.Item("last_price")

End Sub

如何通过HTTP“GET”语句传递请求

0 个答案: