批量遍历XML文件并提取指定标签数据至Excel表格的VBA需求

下面是修改后的VBA代码，会自动遍历Excel表格中的XML文件路径，读取对应文件并提取指定标签数据到第三列：

Sub AutoProcessXMLFromExcel()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim xmlPath As String
    Dim xDoc As Object
    Dim targetNode As Object
    
    ' 设置要操作的工作表，可根据实际修改
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    ' 获取A列最后一行数据的行号（假设A列存XML路径）
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 初始化XML对象
    Set xDoc = CreateObject("MSXML2.DOMDocument")
    xDoc.async = False
    xDoc.validateOnParse = False
    
    ' 遍历每行数据（从第2行开始，假设第1行是表头）
    For i = 2 To lastRow
        xmlPath = ws.Cells(i, "A").Value
        
        ' 检查路径是否为空且文件存在
        If xmlPath <> "" And Dir(xmlPath) <> "" Then
            ' 加载XML文件
            If xDoc.Load(xmlPath) Then
                ' 提取指定标签的数据，这里请替换成你需要的标签路径
                ' 示例：提取根节点下的InvoiceNumber标签，可根据实际XML结构修改
                Set targetNode = xDoc.SelectSingleNode("//InvoiceNumber")
                
                If Not targetNode Is Nothing Then
                    ' 将提取的数据写入第三列（C列）
                    ws.Cells(i, "C").Value = targetNode.Text
                Else
                    ' 如果未找到指定标签，标记提示
                    ws.Cells(i, "C").Value = "未找到目标标签"
                End If
            Else
                ' 加载XML失败时的提示
                ws.Cells(i, "C").Value = "XML文件加载失败"
            End If
        Else
            ' 路径为空或文件不存在的提示
            ws.Cells(i, "C").Value = "无效路径或文件不存在"
        End If
    Next i
    
    ' 释放对象
    Set xDoc = Nothing
    Set ws = Nothing
    
    MsgBox "XML数据提取完成！"
End Sub

关键修改说明 #

• 移除了手动选择文件的FileDialog模块，改为自动遍历Excel行的循环逻辑
• 添加了文件存在性检查，避免因无效路径导致报错
• 使用SelectSingleNode代替原代码的ChildNodes索引，更适配XML结构的变化（你需要把//InvoiceNumber替换成实际要提取的标签路径）
• 增加了错误提示，方便排查单个文件的问题

使用注意事项 #

1. 确保Excel表格中A列是XML文件的完整路径（例如C:\Files\data.xml）
2. 根据你的XML结构，修改代码中SelectSingleNode的参数，比如要提取<PurchaseOrderNumber>标签就改成//PurchaseOrderNumber
3. 如果XML有命名空间，需要额外添加命名空间的处理逻辑（可根据实际情况调整）
4. 运行前建议备份Excel文件，避免数据意外覆盖

内容的提问来源于stack exchange，提问作者ICater