Excel VBA怎么解析XML文件 VBA读取XML数据

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）。

标签： excel node 工具 microsoft