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文件（最常用）：

Blender Geometry Nodes Script Generator

生成Blender Python (bpy)脚本，该脚本使用node_groups API和GeometryNodeTree接口程序化地创建几何节点修改器树，用于参数化3D资产生成。

下载

• xmlDoc.async = False（必须设为False，避免异步加载失败）
• bSuccess = xmlDoc.Load("C:\data\config.xml")
• 检查bSuccess是否为True，否则用xmlDoc.parseError.reason查错

✅ 加载XML字符串（比如从单元格或API返回）：

• xmlDoc.LoadXML "A"
• 注意：字符串必须是格式良好的XML，不能有中文引号、未闭合标签等

三、读取XML内容的两种典型方式

① 按节点层级逐级访问（适合结构固定）
例如XML含<book><title>VBA入门</title> <price>59.00</price></book>：

• Set root = xmlDoc.DocumentElement
• For i = 0 To root.ChildNodes.Length - 1
• Debug.Print root.ChildNodes(i).ChildNodes(0).Text 'title内容'
• Next

② 用XPath精准定位（推荐，灵活高效）
比如提取所有<price></price>节点值：

• 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处理就很顺。