如何使用JSON从Excel VBA进行API调用时读取HTTP标头？

Question

我正在使用此JsonConverter从Excel VBA对服务器进行API调用：

*）https://github.com/VBA-tools/VBA-JSON/blob/master/JsonConverter.bas

我使用这个可以正常工作的命令：

http.Open "GET", APIString, False
http.send    
Set JSON = ParseJson(http.responseText)

虽然在某些情况下收到的JSON字符串已损坏且我的代码因错误而停止。

如果我是对的，应该有一个＆＃39; http-header＆＃39;包含一个表示JSON字符串已损坏的数字。

你知道我在哪里以及如何导入这个＆＃39; http-header＆＃39;来自Excel VBA。在这种情况下，我可以取消我的API调用，在这种情况下，标题中的数字表示内容已损坏。

谢谢！

Answer 1

检查您的http请求的状态：

if http.Status = 200 Then
    Set JSON = ParseJson(http.responseText)
else
    ' ... (error handling)
end if