Excel VBA解析XML api URL

我正在尝试使用VBA解析api URL。但是，我无法理解为什么我没有得到以下代码的输出。也没有错误消息。但是，如果我使用另一个XML文件，它似乎可以工作

有人给了你一些代码改进的建议吗？谢谢

子测试（）
Dim http作为新的XMLHTTP60
Dim xmlDoc作为对象，post作为对象
使用http
.打开“获取”https://www.researchonline.se/api/MacroAdmin/GetForecast?name=policy&start=Mon%20Sep%2014%202020&end=Tue%20Sep%2014%202021”“错
.发送
设置xmlDoc=CreateObject（“MSXML2.DOMDocument”）
xmlDoc.loadXML.responseXML.XML
以
对于xmlDoc.getElementsByTagName（“日期开始”）中的每个帖子
r=r+1：
单元格（r，1）=post.getElementsByTagName（“d3p1:dateTime”）.Text
MsgBox post.getElementsByTagName（“d3p1:dateTime”）.Text
下一篇文章
端接头

看起来您需要（查找）检索到的XML文本中的根元素。可能：ArrayOfSHBForecast.http.responseXML.XML为空。也许您可以尝试解析http.responseText。我想您需要在尝试访问使用该名称空间的元素之前添加名称空间。回顾-当从VBA调用时，该URL返回JSON，而不是XML。感谢大家的快速反馈！接下来还有两个问题：1）我如何判断它是JSON而不是XML？2） 我将如何修改编码来调整JSON（或者有一个很好的之前的线程吗？）谢谢！