API XML/JSON响应和VBA解析

我有一个API，它根据构造的URL和令牌和符号给出股票价格，这个API返回的是基于web的，返回

中的XML/JSON格式数据和其中的数据。下面是一个例子

31.35
9.06

我想使用VBA（

31.35

和

9.06

）在Excel中检索价格，请帮助我了解如何实现。并不是说

n5323

和

n3221

是动态生成的，每次都不同

我的VBA代码如下所示

Dim strXMLSite作为字符串
Dim objXMLHTTP作为MSXML2.XMLHTTP
Dim objXMLDoc作为MSXML2.DOMDocument
Dim objXMLNodexbrl作为MSXML2.IXMLDOMNode
将objXMLNodeDIIRSP设置为MSXML2.IXMLDOMNode节点
设置objXMLHTTP=New MSXML2.XMLHTTP
设置objXMLDoc=New MSXML2.DOMDocument
strXMLSite=”http://testserver/volume/daily?token=“+token$+”&股票代码=“+Symbol$+”
objXMLHTTP.Open“POST”，strXMLSite，False
objXMLHTTP.send
objXMLDoc.LoadXML（objXMLHTTP.responseText）
设置objXMLNodexbrl=objXMLDoc.SelectSingleNode（“根”）
设置objXMLNodeDIIRSP=objXMLNodexbrl。选择SingleNode（“根”）
工作表（“Sheet1”）.Range（“J1”）.Value=objXMLNodeDIIRSP.Text

如果您不知道节点名称，则可以枚举节点

Dim n作为IXMLDOMNode
对于objXMLDoc.documentElement.childNodes中的每个n
调试。打印n.nodeName，n.Text
下一个

添加对

Microsoft XML，v6.0

的引用，实例化

DOMDocument

和

loadXML

响应。请将代码snipet放在这里好吗？我在主帖子中更新了我的代码…可能是重复的，我在xmldoc的原始帖子中使用了上面的代码得到了响应，但是任何人都可以告诉我如何从响应中解析这个，下面是我想要解析的xml响应，这个n321和n314是随机生成的。31.35 9.06尝试替换字符串

“http://testserver/volume/daily?token=“+token$+”&ticker=“+Symbol$+”

带

”http://testserver/volume/daily?token=“&token$&”&ticker=“&Symbol$

，同时确保

token

和

Symbol

变量中的字符串是URL编码的。