使用vba将XML文件中的数据提取到MS excel

使用vba将XML文件中的数据提取到MS excel,excel,xml,vba,Excel,Xml,Vba,嗨,我有一个来自API的xml响应,我想将数据从xml文件提取到excel,但所有字段都在第节中。 我是XML的初学者,无法从节中提取数据。我试图写一些代码,但没有一个成功 我已经编写了一些代码,但它不起作用。您需要的数据是一个单独的XML文档,嵌入在响应XML的CDATA部分 您需要提取XML并将其加载到第二个文档对象中,以便提取所需的数据 例如: 子测试() '工具->参考->Microsoft Xml v.60 Dim dom为MSXML2.DOMDocument60,childDoc为M

嗨,我有一个来自API的xml响应,我想将数据从xml文件提取到excel,但所有字段都在第节中。 我是XML的初学者,无法从节中提取数据。我试图写一些代码,但没有一个成功


我已经编写了一些代码,但它不起作用。

您需要的数据是一个单独的XML文档,嵌入在响应XML的CDATA部分

您需要提取XML并将其加载到第二个文档对象中,以便提取所需的数据

例如:

子测试()
'工具->参考->Microsoft Xml v.60
Dim dom为MSXML2.DOMDocument60,childDoc为MSXML2.DOMDocument60
Dim recXML作为字符串,rec,rec
设置dom=New MSXML2.DOMDocument60
设置childDoc=New MSXML2.DOMDocument60
加载“C:\Users\Tim\OneDrive\Desktop\temp\response.xml”
'您需要设置名称空间属性
dom.SetProperty“SelectionNamespaces”,“xmlns:abc=”http://www.isinet.com/xrpc42'"
将xmlSomeCData设置为MSXML2.ixmldemelement
'使用前面查询时创建的namspace别名
设置xmlSomeCData=dom。选择SingleNode(“abc:response/abc:map/abc:map/abc:val”)
recXML=xmlSomeCData.Text'