Excel VBA导出XML文件 编写宏将Excel单元格存为XML

xml导出需手动构建字符串，vba无内置序列化函数，必须自行拼接标签、转义字符、控制缩进，否则易产生解析错误或非法字符问题。

XML导出必须手动构建字符串，VBA没有内置XML序列化函数

excel VBA本身不提供类似 XmlSerializer 或 DOMDocument.Save 那样的全自动对象转XML能力。你得自己拼接标签、转义特殊字符、控制缩进——不是“调一个函数就完事”，而是“按XML规则手写字符串”。否则容易生成格式非法、无法被其他系统解析的文件。

常见错误现象：XML parse Error on line X、Invalid character（比如单元格含 &、、<code>" 却没转义）、根节点缺失或重复。

• 所有文本内容必须用 Replace(Replace(Replace(cell.Value, "&", "&"), " 转义
• 避免直接用 Range.Value 拼接：空值会变 Empty 或 Null，导致字符串中出现 vbNullString 或报错 13 类型不匹配
• 用 vbCrLf 换行，别用 Chr(10) 或 Chr(13) 单独拼——Windows记事本只认 vbCrLf

用 FileSystemObject 写文件比 Open/Print # 更稳

老教程常用 Open "path.xml" For Output As #1，但遇到路径含中文、权限受限、文件被占用时极易失败，且错误提示模糊（比如只报 76 路径未找到，实际是父目录不存在）。FileSystemObject 提供更清晰的路径检查和异常反馈。

使用场景：需要确保目标文件夹存在、覆盖前确认、写入后校验文件大小是否为0。

• 先用 fso.FolderExists(fso.GetParentFolderName(filePath)) 检查上级目录
• 用 fso.CreateTextFile(filePath, True) 的第二个参数 True 表示覆盖，避免 55 文件已打开
• 写完立刻用 fso.GetFile(filePath).Size = 0 判断是否写入失败（常见于磁盘满或权限不足）

单元格数据到XML节点：别硬套表格结构，先想好业务语义

很多人一上来就按 Excel 行列机械映射成 <row><col1>...</col1><col2>...</col2></row>，结果XML没法被下游系统识别。XML不是存档格式，是交换契约——节点名要反映字段含义，比如 <customerid></customerid> 而非 <cola></cola>。

参数差异：同一张表，导出客户主数据用 <customer></customer> 根节点，导出订单明细就得用 <orderline></orderline>，不能复用同一套循环逻辑。

• 第一行必须是字段名（如 CustomerID、OrderDate），代码里用 headers(i) = .Cells(1, i).Value 提取，而非写死字符串
• 空单元格统一输出为空标签 <phone></phone>，别省略节点——多数解析器要求字段存在性明确
• 日期类型用 Format(cell.Value, "yyyy-mm-dd")，别传 cell.Text（格式依赖单元格显示设置，不可靠）

编码问题：UTF-8 with BOM 才能保证中文不乱码

用 FileSystemObject 默认写的是 ANSI 编码，Excel 2016+ 打开会显示中文为方块，Notepad++ 显示为 ANSI。必须显式指定 UTF-8 并写入 BOM（Byte Order Mark），否则 Python 或 Java 解析器读出来就是乱码。

性能影响：加 BOM 仅多3个字节，无实质开销；但漏掉它，整个文件在跨平台场景下等于作废。

• 不要用 fso.CreateTextFile 直接写 UTF-8——它不支持编码参数
• 改用 ADODB.Stream：Set stream = CreateObject("ADODB.Stream")，然后 stream.Charset = "UTF-8"、stream.WriteText xmlContent, 0（0 表示含BOM）
• 写完必须调 stream.SaveToFile filePath, 2（2 表示覆盖），漏掉这步文件为空

事情说清了就结束。最常被忽略的是转义和编码——单元格里一个 & 符号，或导出文件没BOM，足够让下游系统解析失败，且错误提示完全不指向根源。