VBA-JSON возвращает только 32 767 символов при вызове API

Question

Я использую последний файл VBA-JSON, отсюда:

https://github.com/VBA-tools/VBA-JSON/releases

При использовании следующего кода я могу вернуть данные на лист:

 Dim httpObject As Object
 Set httpObject = CreateObject("MSXML2.XMLHTTP")

 sURL = "https://pro-api.coinmarketcap.com/v1/cryptocurrency/listings/latest?**API Key... I can provide if necessary**"

 sRequest = sURL

 httpObject.Open "GET", sRequest, False
 httpObject.send
 sGetResult = httpObject.responseText

 Set oJSON = JsonConverter.ParseJson(sGetResult)

 Range("A1").Value = sGetResult

Однако я определил, что возвращаю всего 32 767 символов (не все данные).

Я видел подобные вопросы здесь, в StackOverflow, которые связывают проблему с настройкой конкретных параметров JSON, но я не вижу те же параметры JSON в используемом мной файле JSON.Я сделал изменения с Integer на Long, но это никак не отразилось.

Я немного не согласен с этим, так что любой совет будет принят с благодарностью.

Answer 1

Smile :-) Я фактически построил крипто-трекер в начале года (а затем мне нужно было сделать какую-то реальную работу, чтобы он бездействовал).

В основе были JSON-ретривер и парсерЯ написал несколько лет назад (с помощью StackOverflow, без сомнения).Я бы разместил здесь почтовые файлы, но я не думаю, что нам разрешено это делать.

Я собираюсь представить вопрос через несколько минут, в котором просят кого-то превратить следующее в набор VBA с открытым исходным кодом / бесплатно для всех.Я видел несколько вопросов по этому поводу (о разборе JSON).

Итак, если вам интересно - вы можете найти помощь здесь: http://davidnickell.net/excel-json-parser/

Удачи и счастливого разбора.