Excel VBA可通过MSXML2.DOMDocument60加载解析XML，需启用Microsoft XML v6.0引用，用Load/LoadXML加载、parseError校验错误，getElementsByTagName或XPath选取节点，nodeTypedValue安全取值，再写入工作表。
Excel VBA 可以通过 MSXML 库（如 MSXML2.DOMDocument60）直接加载、解析 XML 文件，提取节点、属性和文本内容。关键在于正确初始化 XML 对象、处理命名空间（如有）、遍历节点结构，并将数据写入工作表或变量中。
1. 启用 MSXML 引用并创建 DOMDocument 对象
在 VBA 编辑器中，点击「工具」→「引用」，勾选：
Microsoft XML, v6.0（推荐使用 v6.0，兼容性好且支持 XPath）。
然后用以下代码加载本地 XML 文件：
- 使用
.Load加载本地路径（注意返回值判断是否成功） - 使用
.LoadXML加载字符串格式的 XML 内容 - 务必检查
.parseError.ErrorCode，避免静默失败
示例：
Dim xmlDoc As New MSXML2.DOMDocument60<br>xmlDoc.async = False<br>xmlDoc.Load "C:\data\example.xml"<br>If xmlDoc.parseError.ErrorCode <> 0 Then<br> MsgBox "XML 解析错误：" & xmlDoc.parseError.reason<br> Exit Sub<br>End If
2. 提取节点数据：getElementsByTagName 与 selectSingleNode/selectNodes
常用方式有两类：
-
按标签名批量获取：用
xmlDoc.getElementsByTagName("Item")返回IXMLDOMNodeList，再用.Length和.item(i)遍历 -
用 XPath 精准定位：如
xmlDoc.SelectSingleNode("//Product/Name")或xmlDoc.SelectNodes("//Order/Item")，支持条件过滤（如//Item[@status='shipped']）
注意：若 XML 含命名空间（如 xmlns="http://example.com/ns"），需先设置 xmlDoc.setProperty "SelectionNamespaces", "xmlns:x='http://example.com/ns'"，再用前缀查询（如 x:Item）。
3. 读取节点内容、属性和子元素
对单个节点（IXMLDOMNode），常用属性如下：
-
.Text：获取节点内纯文本（含子节点文本拼接） -
.nodeTypedValue：自动转换类型（数字/日期等），更可靠 -
.Attributes.getNamedItem("id").Text：读取指定属性值 -
.ChildNodes.Item(0).Text或.FirstChild.Text：访问首个子节点文本 -
.SelectSingleNode("Price").Text：嵌套查找子元素
建议优先用 .nodeTypedValue 避免空格或换行干扰，再配合 IsNumeric / IsDate 做类型校验。
4. 将 XML 数据写入 Excel 工作表
典型流程是：循环节点列表 → 提取字段 → 按行列写入单元格。例如解析订单列表：
Dim items As IXMLDOMNodeList, item As IXMLDOMNode<br>Set items = xmlDoc.SelectNodes("//Order/Item")<br>Dim i As Long: i = 2 ' 从第2行开始写<br>For Each item In items<br> Cells(i, 1) = item.SelectSingleNode("SKU").nodeTypedValue<br> Cells(i, 2) = item.SelectSingleNode("Quantity").nodeTypedValue<br> Cells(i, 3) = item.SelectSingleNode("Price").nodeTypedValue<br> i = i + 1<br>Next
进阶技巧：用数组批量写入（提升速度）、添加表头、自动调整列宽、处理缺失节点（用 If Not node Is Nothing Then ... 判断）。
