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

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

*)

我使用以下命令，效果很好：

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

尽管在某些情况下，接收到的JSON字符串已损坏，并且我的代码因错误而停止

如果我是正确的，那么应该有一个“http头”，其中包含一个表示JSON字符串已损坏的数字

您知道从Excel VBA导入此“http头”的位置和方式吗。在这种情况下，我可以取消API调用。在这种情况下，标题中的数字表示内容已损坏

---

谢谢

检查http请求的状态：

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

---

检查http请求的状态：

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

---

谢谢托马斯，我将添加这些行。谢谢托马斯，我将添加这些行。