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

微笑:-)我实际上是在今年年初建立了一个加密跟踪器（然后不得不完成一些实际工作，因此它一直处于闲置状态）。

几年前，我写了一个JSON检索器和解析器（毫无疑问是在StackOverflow的帮助下）。我将zip文件发布在这里，但我认为我们不允许这样做。

我将在几分钟后提交一个问题，要求某人将以下内容转换为开源的/免费的VBA集，以供任何人使用。我已经看到了一些类似的问题（关于JSON解析）。

因此，如果您有兴趣-您可以在这里找到帮助：http://davidnickell.net/excel-json-parser/

祝你好运，解析愉快。

VBA-JSON在API调用上仅返回32,767个字符

1 个答案: