Excel VBA怎么解析XML文件 VBA读取XML数据-XML/RSS教程-PHP中文网

Excel VBA怎么解析XML文件 VBA读取XML数据

月夜之吻

发布： 2025-12-20 01:47:11

原创

221人浏览过

Excel VBA可通过MSXML2.DOMDocument60加载解析XML，需启用Microsoft XML v6.0引用，用Load/LoadXML加载、parseError校验错误，getElementsByTagName或XPath选取节点，nodeTypedValue安全取值，再写入工作表。

excel vba怎么解析xml文件 vba读取xml数据

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<br>xmlDoc.async = False<br>xmlDoc.Load "C:\data\example.xml"<br>If xmlDoc.parseError.ErrorCode <> 0 Then<br>    MsgBox "XML 解析错误：" & xmlDoc.parseError.reason<br>    Exit Sub<br>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）。

TextIn Tools

是一款免费在线OCR工具，包含文字识别、表格识别，PDF转文件，文件转PDF、其他格式转换，识别率高，体验好，免费。

164

查看详情

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<br>Set items = xmlDoc.SelectNodes("//Order/Item")<br>Dim i As Long: i = 2 ' 从第2行开始写<br>For Each item In items<br>    Cells(i, 1) = item.SelectSingleNode("SKU").nodeTypedValue<br>    Cells(i, 2) = item.SelectSingleNode("Quantity").nodeTypedValue<br>    Cells(i, 3) = item.SelectSingleNode("Price").nodeTypedValue<br>    i = i + 1<br>Next

登录后复制

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

以上就是Excel VBA怎么解析XML文件 VBA读取XML数据的详细内容，更多请关注php中文网其它相关文章！