将数据从 XML 文件导入 excel

Question

我正在尝试将 XML 文件导入 excel，我尝试使用以下代码

Sub Convert_XML_To_Excel_Through_VBA()
'Code from Officetricks.com
'Add referece from Menu: "Tools -> References -> Microsoft XML Vn.0"
Dim iRow As Integer, iCol As Integer
Dim xmlDoc As MSXML2.DOMDocument60, xmlRoot As MSXML2.IXMLDOMNode
Dim xmlNodes As MSXML2.IXMLDOMNode, xmlData As MSXML2.IXMLDOMNode
Set xmlDoc = New MSXML2.DOMDocument60

'Load & Wait till complete XML Data is loaded
xmlDoc.async = False
xmlDoc.validateOnParse = False
xmlDoc.Load (ThisWorkbook.Path & "\Sample.xml")

'XML Loaded. Now Read Elements One by One into XML DOM Objects
Set xmlRoot = xmlDoc.DocumentElement
Set xmlNodes = xmlRoot.FirstChild

'Read XML Data and Load into Excel Sheet by each Node and Chile Node
iRow = 0
For Each xmlNodes In xmlRoot.ChildNodes
    iRow = iRow + 1
    iCol = 0

    For Each xmlData In xmlNodes.ChildNodes
        iCol = iCol + 1
        If xmlData.BaseName = "sheetDataSet" Then
            ThisWorkbook.ActiveSheet.Cells(1, iCol) = xmlData.BaseName
            Dim e

            For Each e In xmlData.ChildNodes
            Debug.Print e.Text
            'ThisWorkbook.ActiveSheet.Cells(iRow, iCol) = xmlData.Text
            Next e
        End If
    Next xmlData
Next xmlNodes
End Sub

我能得到的只是一个像这样的流文本 Header1Header2Yasser10Ahmed20Reda30 这是XML内容

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<externalLink
 xmlns="http://schemas.openxmlformats.org/spreadsheetml/2006/main"
 xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" mc:Ignorable="x14"
 xmlns:x14="http://schemas.microsoft.com/office/spreadsheetml/2009/9/main">
 <externalBook
  xmlns:r="http://schemas.openxmlformats.org/officeDocument/2006/relationships" r:id="rId1">
  <sheetNames>
   <sheetName val="Sheet1"/>
  </sheetNames>
  <sheetDataSet>
   <sheetData sheetId="0" refreshError="1">
    <row r="1">
     <cell r="A1" t="str">
      <v>Header1</v>
     </cell>
     <cell r="B1" t="str">
      <v>Header2</v>
     </cell>
    </row>
    <row r="2">
     <cell r="A2" t="str">
      <v>Yasser</v>
     </cell>
     <cell r="B2">
      <v>10</v>
     </cell>
    </row>
    <row r="3">
     <cell r="A3" t="str">
      <v>Ahmed</v>
     </cell>
     <cell r="B3">
      <v>20</v>
     </cell>
    </row>
    <row r="4">
     <cell r="A4" t="str">
      <v>Reda</v>
     </cell>
     <cell r="B4">
      <v>30</v>
     </cell>
    </row>
   </sheetData>
  </sheetDataSet>
 </externalBook>
</externalLink>

如何将数据正确导入sheet？

Answer 1

使用 Excel 菜单中的路径：

数据/获取外部数据/来自其他来源/来自XML数据导入

Answer 2

继续向下遍历树

 Dim e, r, c, addr As String
 For Each e In xmlData.ChildNodes
     For Each r In e.ChildNodes
         For Each c In r.ChildNodes
             addr = c.Attributes(0).Value
             ThisWorkbook.ActiveSheet.Range(addr) = c.Text
         Next
     Next
Next e

Answer 3

XML 有一个默认命名空间，您需要使用 SetProperty 为其分配一个前缀，然后在您的 SelectNodes 调用中使用您的 XPath 中的前缀。这是工作示例。

Sub LoadXML()
  Dim xml As Object
  Set xml = CreateObject("MSXML2.DOMDocument")
  xml.Load ("c:\temp\excel.xml")
  xml.setProperty "SelectionNamespaces", "xmlns:ns='http://schemas.openxmlformats.org/spreadsheetml/2006/main'"

  Dim col As New Collection

  Dim ndRows, ndCols As Object

  Set ndRows = xml.SelectNodes("//ns:row")

  For i = 0 To ndRows.Length - 1
    Set ndCols = ndRows(i).SelectNodes("ns:cell/ns:v")
    For j = 0 To ndCols.Length - 1
      Cells(i + 1, j + 1) = ndCols(j).Text
    Next j
  Next i

End Sub

将数据从 XML 文件导入 excel

Import data from XML file into excel

excel

vba

xml-parsing