答案：通过MSXML2.DOMDocument对象实现Excel与XML交互，先引用Microsoft XML库，创建DOM对象，可从XML读取数据到Excel或导出Excel数据为XML文件。1. 引入XML库并创建DOM对象；2. 使用Load方法加载XML，SelectNodes遍历节点，将数据写入Excel；3. 创建根节点与子节点，循环Excel行生成XML结构并保存；4. 注意路径、错误检查、节点存在性及属性获取。整个过程需确保结构匹配，操作规范。
在VBA中操作XML文件，实现Excel与XML数据的交互，主要通过MSXML2.DOMDocument对象来加载、解析和生成XML。你可以从XML读取数据到Excel，也可以将Excel中的数据导出为XML文件。整个过程不复杂，关键在于理解XML结构并正确使用VBA的XML处理方法。
1. 引入XML库并创建DOM对象
在使用XML功能前，建议添加对“Microsoft XML”库的引用，这样可以提升代码可读性和智能提示支持。
操作步骤：- 打开VBA编辑器（Alt + F11）
- 点击“工具” → “引用”
- 勾选“Microsoft XML, v6.0”（或其他可用版本）
然后在代码中声明并创建DOMDocument对象：
<font face="Courier New"> Dim xmlDoc As New DOMDocument60 Set xmlDoc = New DOMDocument60 xmlDoc.async = False ' 禁用异步加载 xmlDoc.validateOnParse = False </font>
2. 从XML读取数据到Excel
假设有一个XML文件，结构如下：
<font face="Courier New">
<Employees>
<Employee>
<ID>1</ID>
<Name>张三</Name>
<Dept>财务部</Dept>
</Employee>
<Employee>
<ID>2</ID>
<Name>李四</Name>
<Dept>人事部</Dept>
</Employee>
</Employees>
</font>
使用VBA读取该XML并写入Excel工作表：
<font face="Courier New">
Sub LoadXMLToExcel()
Dim xmlDoc As New DOMDocument60
Dim employees As IXMLDOMNodeList
Dim employee As IXMLDOMNode
Dim i As Long
xmlDoc.Load "C:\data\employees.xml" ' 指定XML路径
Set employees = xmlDoc.SelectNodes("/Employees/Employee")
i = 2 ' 从第2行开始写入
For Each employee In employees
Cells(i, 1).Value = employee.SelectSingleNode("ID").Text
Cells(i, 2).Value = employee.SelectSingleNode("Name").Text
Cells(i, 3).Value = employee.SelectSingleNode("Dept").Text
i = i + 1
Next employee
End Sub
</font>
3. 将Excel数据导出为XML文件
将Excel中A列到C列的数据（如ID、姓名、部门）生成XML文件：
<font face="Courier New">
Sub ExportToXML()
Dim xmlDoc As New DOMDocument60
Dim root As IXMLDOMElement
Dim empNode As IXMLDOMElement
Dim fieldNode As IXMLDOMElement
Dim i As Long
Set root = xmlDoc.createElement("Employees")
xmlDoc.appendChild root
i = 2
Do While Cells(i, 1).Value <> ""
Set empNode = xmlDoc.createElement("Employee")
root.appendChild empNode
Set fieldNode = xmlDoc.createElement("ID")
fieldNode.Text = Cells(i, 1).Value
empNode.appendChild fieldNode
Set fieldNode = xmlDoc.createElement("Name")
fieldNode.Text = Cells(i, 2).Value
empNode.appendChild fieldNode
Set fieldNode = xmlDoc.createElement("Dept")
fieldNode.Text = Cells(i, 3).Value
empNode.appendChild fieldNode
i = i + 1
Loop
xmlDoc.Save "C:\data\export_employees.xml"
MsgBox "XML文件已导出"
End Sub
</font>
4. 注意事项与技巧
实际操作中需注意以下几点，避免常见错误：
- 确保XML文件路径正确，或使用ThisWorkbook.Path获取当前目录
- 调用Load后检查xmlDoc.parseError.errorCode是否为0，判断是否加载成功
- 使用SelectSingleNode前确认节点存在，否则会报错，可先判断If Not node Is Nothing Then
- 对于属性型XML（如<Employee ID="1">），使用getAttribute("ID")获取属性值
- 中文内容一般无需特别编码处理，但保存时确保系统兼容UTF-8或ANSI
基本上就这些。掌握DOM模型的基本操作后，Excel与XML之间的数据交换就很灵活了。无论是配置文件读取，还是系统间数据导入导出，这种方法都很实用。只要结构清晰，VBA处理XML并不难。
