在Excel的日常使用中，经常需要处理来自Web端的XML格式数据，比如获取公开的API接口返回的XML数据、读取远程服务器上的XML配置文件等。通过VBA编写Excel宏可以自动化完成这些操作，避免手动处理的繁琐。
VBA解析XML的核心对象
VBA中解析XML主要依赖MSXML2.DOMDocument对象，该对象提供了完整的XML文档操作能力，支持加载本地文件、请求远程URL、遍历节点、读取节点属性等操作。使用前需要先引用对应的库，在VBA编辑器中点击工具-引用，勾选Microsoft XML, v6.0（不同版本可能名称略有差异，选择最高版本即可）。
解析本地XML文件的方法
如果XML文件已经保存在本地，可以通过Load方法加载文件，再通过节点遍历读取内容。以下是读取本地XML文件并提取节点数据的示例代码：
Sub ParseLocalXML()
Dim xmlDoc As Object
Dim xmlNodes As Object
Dim i As Integer
' 创建XML文档对象
Set xmlDoc = CreateObject("MSXML2.DOMDocument.6.0")
' 关闭异步加载，确保文件加载完成再执行后续操作
xmlDoc.async = False
' 加载本地XML文件，替换为实际文件路径
If xmlDoc.Load("C:testdata.xml") Then
' 获取所有指定名称的节点，这里以book节点为例
Set xmlNodes = xmlDoc.getElementsByTagName("book")
' 遍历节点，将数据写入Excel工作表
For i = 0 To xmlNodes.Length - 1
' 读取节点的子节点内容，假设book下有title和author子节点
Cells(i + 2, 1).Value = xmlNodes(i).getElementsByTagName("title")(0).Text
Cells(i + 2, 2).Value = xmlNodes(i).getElementsByTagName("author")(0).Text
Next i
MsgBox "本地XML解析完成，共读取" & xmlNodes.Length & "条数据"
Else
' 加载失败时输出错误信息
MsgBox "XML文件加载失败，错误描述：" & xmlDoc.parseError.reason
End If
' 释放对象
Set xmlNodes = Nothing
Set xmlDoc = Nothing
End Sub
Excel宏抓取Web XML数据的方法
如果需要获取Web端的XML数据，需要使用MSXML2.XMLHTTP对象发送HTTP请求，获取远程XML内容后再交给DOMDocument对象解析。以下是抓取Web XML数据的完整示例：
Sub FetchWebXML()
Dim http As Object
Dim xmlDoc As Object
Dim xmlNodes As Object
Dim i As Integer
Dim url As String
' 目标Web XML地址，这里使用公开的测试地址，实际使用时替换为目标URL
url = "http://ipipp.com/test/data.xml"
' 创建HTTP请求对象
Set http = CreateObject("MSXML2.XMLHTTP.6.0")
' 发送GET请求
http.Open "GET", url, False
http.send
' 检查请求是否成功，状态码200表示成功
If http.Status = 200 Then
' 创建XML文档对象
Set xmlDoc = CreateObject("MSXML2.DOMDocument.6.0")
xmlDoc.async = False
' 加载HTTP请求返回的XML内容
xmlDoc.LoadXML http.responseText
' 解析节点数据，同样以book节点为例
Set xmlNodes = xmlDoc.getElementsByTagName("book")
For i = 0 To xmlNodes.Length - 1
Cells(i + 2, 1).Value = xmlNodes(i).getElementsByTagName("title")(0).Text
Cells(i + 2, 2).Value = xmlNodes(i).getElementsByTagName("author")(0).Text
Next i
MsgBox "Web XML数据抓取完成，共获取" & xmlNodes.Length & "条数据"
Else
MsgBox "HTTP请求失败，状态码：" & http.Status
End If
' 释放对象
Set xmlNodes = Nothing
Set xmlDoc = Nothing
Set http = Nothing
End Sub
常见问题与注意事项
- 如果XML文件包含中文内容，需要确保文件编码为UTF-8，否则可能出现乱码问题，可以在加载前设置
xmlDoc.setProperty "SelectionLanguage", "XPath"辅助处理编码。 - 部分Web服务器会有反爬限制，频繁请求可能会被拒绝，建议添加适当的请求间隔，或者检查是否需要添加请求头，可通过
http.setRequestHeader "User-Agent", "Mozilla/5.0"设置请求头。 - 如果XML节点不存在，直接读取
Text属性会报错，建议先判断节点是否存在，比如If Not xmlNodes(i).getElementsByTagName("title")(0) Is Nothing Then再做读取操作。 - 引用库时如果找不到
Microsoft XML, v6.0，可以使用CreateObject后期绑定的方式创建对象，避免版本兼容问题，本文示例已经使用了后期绑定的写法。
节点筛选的高级用法
如果需要筛选特定条件的XML节点，可以使用XPath语法，DOMDocument对象支持XPath查询，示例如下：
Sub FilterXMLNodes()
Dim xmlDoc As Object
Dim selectedNodes As Object
Set xmlDoc = CreateObject("MSXML2.DOMDocument.6.0")
xmlDoc.async = False
' 加载本地XML文件
xmlDoc.Load "C:testdata.xml"
' 设置XPath选择语言
xmlDoc.setProperty "SelectionLanguage", "XPath"
' 筛选price属性大于50的book节点，XPath语法：//book[@price>50]
Set selectedNodes = xmlDoc.selectNodes("//book[@price>50]")
Dim i As Integer
For i = 0 To selectedNodes.Length - 1
Cells(i + 2, 1).Value = selectedNodes(i).getElementsByTagName("title")(0).Text
Next i
Set selectedNodes = Nothing
Set xmlDoc = Nothing
End Sub
以上方法覆盖了VBA解析XML和抓取Web XML数据的大部分场景，根据实际需求调整节点名称和URL即可快速应用到自己的Excel宏中。