Пытаюсь получить массив данных.
Но выдает только массив из 500 элементов
Должно быть 700.000 элементов.
Как по-другому подойти к этому чтобы получить полный массив?
Но выдает только массив из 500 элементов
Должно быть 700.000 элементов.
Как по-другому подойти к этому чтобы получить полный массив?
| Код |
|---|
Sub get_HistoryPrice()
Dim myString As String
url = "https://api.binance.com/api/v3/klines?symbol=BTCUSDT&interval=1m&startTime=1648771200000&endTime=1680307200000"
Set http = CreateObject("MSXML2.XMLHTTP")
With http
.Open "GET", url, False
' .setRequestHeader "Content-type", "application/json"
' .setRequestHeader "Accept", "application/json"
' .setRequestHeader "Authorization", "Bearer " & authKey
.Send
End With
myString = http.responsetext
arr_from_myString = Split(myString, "],[")
'arr_str2 = http.responseBody
'Set objectJson = JsonConverter.ParseJson(arr_str)
End Sub |
