Office VBA操作XML文件的核心是使用MSXML DOM对象模型，需先引用Microsoft XML库（如v6.0），再通过DOMDocument60加载（本地文件需设async=False或字符串用LoadXML）、XPath精准读取、Save或ADODB.Stream写入，确保结构安全可控。
Office VBA操作XML文件，核心是用MSXML DOM对象模型来加载、解析、遍历和修改XML内容。不依赖外部工具，也不需要手动拼接字符串——只要引用正确的XML库，就能安全读写结构化数据。
一、先添加XML引用（关键第一步）
打开VBA编辑器（Alt+F11）→ 菜单栏「工具」→ 「引用」→ 勾选：
Microsoft XML, v6.0（推荐，稳定且功能全）
或 Microsoft XML, v3.0（兼容旧系统）
勾选后，代码中可直接声明类型，获得智能提示和编译检查：
- Dim xmlDoc As MSXML2.DOMDocument60
- Set xmlDoc = New MSXML2.DOMDocument60
若跳过这步而用CreateObject("MSXML2.DOMDocument")，属于“后期绑定”，无提示、易出错，仅作临时调试用。
二、加载XML：本地文件 or 字符串
✅ 加载本地XML文件（最常用）：
- xmlDoc.async = False（必须设为False，避免异步加载失败）
- bSuccess = xmlDoc.Load("C:\data\config.xml")
- 检查bSuccess是否为True，否则用xmlDoc.parseError.reason查错
✅ 加载XML字符串（比如从单元格或API返回）：
- xmlDoc.LoadXML "
- A
- 注意：字符串必须是格式良好的XML，不能有中文引号、未闭合标签等
三、读取XML内容的两种典型方式
① 按节点层级逐级访问（适合结构固定）
例如XML含
- Set root = xmlDoc.DocumentElement
- For i = 0 To root.ChildNodes.Length - 1
- Debug.Print root.ChildNodes(i).ChildNodes(0).Text 'title内容'
- Next
② 用XPath精准定位（推荐，灵活高效）
比如提取所有
- Set nodes = xmlDoc.SelectNodes("//price")
- For Each node In nodes: Debug.Print node.Text: Next
- 支持复杂路径如
"//book[@category='tech']/title"（带属性筛选）
四、写入或修改XML（保存前需注意）
VBA的DOMDocument默认不提供直接保存方法，但有可靠替代方案：
- xmlDoc.Save "C:\output.xml" —— 可直接保存（v6.0支持）
- 若报错或需控制编码（如UTF-8），改用ADODB.Stream写入：
- Set stream = CreateObject("ADODB.Stream")
- stream.Charset = "UTF-8": stream.Open: stream.WriteText xmlDoc.XML: stream.SaveToFile ...
新增节点示例：
- Set newNode = xmlDoc.createElement("author")
- newNode.Text = "张三"
- root.FirstChild.appendChild newNode
基本上就这些。关键不是语法多难，而是别漏掉async=False、别绕过引用设置、别把XPath写错层级——稳住这三点，XML处理就很顺。
