vba如何将xml中读取的内容写入到Excel里

可以使用VBA中的XMLDOM对象来读取XML文件内容，并使用Excel VBA中的Range对象来将读取的内容写入到Excel表格中。

下面是一个简单的示例代码，演示如何将XML文件中的数据写入到Excel表格中：

Sub ImportXMLToExcel()
    '定义变量
    Dim xmlDoc As MSXML2.DOMDocument
    Dim xmlNodeList As MSXML2.IXMLDOMNodeList
    Dim xmlNode As MSXML2.IXMLDOMNode
    Dim i As Integer
    
    '创建XMLDOM对象并加载XML文件
    Set xmlDoc = New MSXML2.DOMDocument
    xmlDoc.Load "C:\example.xml"
    
    '获取XML节点列表
    Set xmlNodeList = xmlDoc.SelectNodes("//data/item")
    
    '循环遍历XML节点列表，将数据写入到Excel表格中
    For i = 0 To xmlNodeList.Length - 1
        Set xmlNode = xmlNodeList.Item(i)
        Range("A" & i + 1).Value = xmlNode.SelectSingleNode("name").Text
        Range("B" & i + 1).Value = xmlNode.SelectSingleNode("age").Text
        Range("C" & i + 1).Value = xmlNode.SelectSingleNode("gender").Text
    Next i
    
    '释放对象
    Set xmlDoc = Nothing
    Set xmlNodeList = Nothing
    Set xmlNode = Nothing
    
End Sub

在这个示例中，我们假设XML文件中有一个名为"data"的根节点，包含多个名为"item"的子节点，每个子节点包含一个名为"name"、"age"和"gender"的子节点，分别表示姓名、年龄和性别。

我们使用XMLDOM对象的SelectNodes方法来获取所有名为"item"的子节点，然后使用循环遍历每个子节点，将其包含的数据写入到Excel表格中。在这个示例中，我们将姓名、年龄和性别分别写入到Excel表格的第1列、第2列和第3列。

注意：在使用XMLDOM对象时，需要在VBA的工具->引用中添加Microsoft XML, v6.0引用。