Excel VBA可通过MSXML2.DOMDocument60加载、解析和操作XML，需启用Microsoft XML, v6.0引用，支持文件/字符串加载、XPath查询、节点增删改及保存，注意UTF-8编码与错误处理。
Excel VBA 可以通过 MSXML 库（如 MSXML2.DOMDocument60）加载、解析和操作 XML 文件，无需外部依赖，但需注意引用设置和常见编码/格式问题。
启用 MSXML 引用并创建 DOM 对象
在 VBA 编辑器中，点击「工具」→「引用」，勾选：
Microsoft XML, v6.0（推荐，兼容性好、支持 XPath 和 UTF-8）
若未列出，可尝试 v3.0（旧系统）或确认系统已安装 MSXML 6.0。
创建文档对象示例：
Dim xmlDoc As New MSXML2.DOMDocument60 xmlDoc.async = False ' 同步加载，避免读取未完成 xmlDoc.validateOnParse = False ' 可选：跳过 DTD 验证防止报错
加载 XML 文件或字符串
支持从本地文件或内存字符串加载：
-
从文件加载（推荐用于结构清晰的 XML）：
If Not xmlDoc.Load("C:\data\config.xml") Then MsgBox "加载失败：" & xmlDoc.parseError.reason -
从字符串加载（适合 API 返回或拼接内容）：
xmlDoc.LoadXML "- A
⚠️ 注意：路径含中文或特殊字符时，确保文件存在且编码为 UTF-8（无 BOM）或 ANSI；若乱码，可用 ADODB.Stream 先读取再转码。
提取节点数据（常用方法）
加载成功后，用 XPath 或遍历方式取值：
-
按标签名取所有节点：
Set nodes = xmlDoc.getElementsByTagName("ProductName")For i = 0 To nodes.Length - 1
Debug.Print nodes(i).Text -
用 XPath 精准定位（需启用命名空间支持）：
xmlDoc.setProperty "SelectionLanguage", "XPath"
Set node = xmlDoc.SelectSingleNode("//Order[@status='shipped']/Customer/Name")
If Not node Is Nothing Then Debug.Print node.Text -
读取属性值：
Set item = xmlDoc.SelectSingleNode("//item")
If Not item Is Nothing Then Debug.Print item.getAttribute("id")
写入或修改 XML 并保存
VBA 可动态创建或修改节点，再保存回文件：
- 添加新节点：
Set newNode = xmlDoc.createElement("Remark")
newNode.Text = "已核验"
xmlDoc.DocumentElement.appendChild newNode - 保存到文件：
xmlDoc.Save "C:\data\updated.xml"
⚠️ 注意：Save 默认使用 UTF-16 编码，如需 UTF-8，改用ADODB.Stream写入并指定 charset。
若只需导出部分数据到 Excel 表格，可循环节点，逐行写入 ActiveSheet.Cells(row, col) = node.Text。
不复杂但容易忽略编码和错误处理——加一句 If xmlDoc.ParseError.ErrorCode 0 Then 判断，能省去大半调试时间。
