将XML数据提取到excel

嗨所以我发现这个代码在线，可以帮助我从XML文件中提取数据。 这段代码如下所示：

Function fnReadXMLByTags() Dim mainWorkBook As Workbook Set mainWorkBook = ActiveWorkbook mainWorkBook.Sheets("Sheet1").Range("A:A").Clear Set oXMLFile = CreateObject("Microsoft.XMLDOM") XMLFileName = "D:\Sample.xml" oXMLFile.Load (XMLFileName) Set TitleNodes = oXMLFile.SelectNodes("/catalog/book/title/text()") Set PriceNodes = oXMLFile.SelectNodes("/catalog/book/price/text()") mainWorkBook.Sheets("Sheet1").Range("A1,B1,C1").Interior.ColorIndex = 40 mainWorkBook.Sheets("Sheet1").Range("A1,B1,C1").Borders.Value = 1 mainWorkBook.Sheets("Sheet1").Range("A" & 1).Value = "Book ID" mainWorkBook.Sheets("Sheet1").Range("B" & 1).Value = "Book Titles" mainWorkBook.Sheets("Sheet1").Range("C" & 1).Value = "Price" mainWorkBook.Sheets("Sheet1").Range("D1").Value = "Total books: " & TitleNodes.Length For i = 0 To (TitleNodes.Length - 1) Title = TitleNodes(i).NodeValue Price = PriceNodes(i).NodeValue mainWorkBook.Sheets("Sheet1").Range("B" & i + 2).Borders.Value = 1 mainWorkBook.Sheets("Sheet1").Range("C" & i + 2).Borders.Value = 1 mainWorkBook.Sheets("Sheet1").Range("B" & i + 2).Value = Title mainWorkBook.Sheets("Sheet1").Range("C" & i + 2).Value = Price Next 'Reading the Attributes Set Nodes_Attribute = oXMLFile.SelectNodes("/catalog/book") For i = 0 To (Nodes_Attribute.Length - 1) Attributes = Nodes_Attribute(i).getAttribute("id") mainWorkBook.Sheets("Sheet1").Range("A" & i + 2).Borders.Value = 1 mainWorkBook.Sheets("Sheet1").Range("A" & i + 2).Value = Attributes Next End Function 

这对于看起来像这样的XML非常有用

 <catalog> <book id="bk101"> <author>Gambardella, Matthew</author> <title>XML Developer's Guide</title> <genre>Computer</genre> <price>44.95</price> <publish_date>2000-10-01</publish_date> <description>An in-depth look at creating applications with XML.</description> </book> 

不过，我的XML数据看起来更像这样

 <catalog> <cbc:book="bk101"> <author>Gambardella, Matthew</author> <cac:title>XML Developer's Guide</cac:title> <genre>Computer</genre> <cac:price>44.95</cac:price> <publish_date>2000-10-01</publish_date> <description>An in-depth look at creating applications with XML.</description> </cbc:book> 

我试着改变这部分代码：

 Set TitleNodes = oXMLFile.SelectNodes("/catalog/book/cac:title/text()") Set PriceNodes = oXMLFile.SelectNodes("/catalog/book/cac:price/text()") 

cac和cbc似乎做了一些阻止代码工作的东西。 你知道我能做些什么来解决这个问题吗？ 谢谢。