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
xmlDoc.async = False
xmlDoc.Load "C:\data\example.xml"
If xmlDoc.parseError.ErrorCode <> 0 Then
    MsgBox "XML 解析错误：" & xmlDoc.parseError.reason
    Exit Sub
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
Set items = xmlDoc.SelectNodes("//Order/Item")
Dim i As Long: i = 2 ' 从第2行开始写
For Each item In items
    Cells(i, 1) = item.SelectSingleNode("SKU").nodeTypedValue
    Cells(i, 2) = item.SelectSingleNode("Quantity").nodeTypedValue
    Cells(i, 3) = item.SelectSingleNode("Price").nodeTypedValue
    i = i + 1
Next

进阶技巧：用数组批量写入（提升速度）、添加表头、自动调整列宽、处理缺失节点（用 If Not node Is Nothing Then ... 判断）。