如何将Excel表格每行数据导出为独立XML文件？

Excel自带的XML导出功能只能生成单个文件，要实现每行导出为独立XML，可通过以下几种方案实现：

方法一：Excel VBA宏（内置方案，无需额外工具） #

这是最直接的Excel原生解决方案，步骤如下：

1. 打开目标Excel文件，按Alt + F11打开VBA编辑器
2. 右键点击当前工作簿→插入→模块
3. 将以下代码粘贴到模块中，根据实际情况修改参数：

Sub ExportRowsToXML()
    Dim ws As Worksheet
    Dim lastRow As Long, i As Long
    Dim xmlPath As String, xmlFileName As String
    Dim xmlContent As String
    
    ' 替换为你的工作表名称
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    ' 替换为XML保存路径，结尾必须加反斜杠
    xmlPath = "C:\Your\Target\Folder\"
    
    ' 获取数据最后一行行号
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 遍历每行数据（从第2行开始，假设第1行是表头）
    For i = 2 To lastRow
        ' 生成XML文件名（1.xml、2.xml...）
        xmlFileName = xmlPath & (i - 1) & ".xml"
        
        ' 构建XML内容，根据列数和标签名调整
        xmlContent = "<?xml version=""1.0"" encoding=""UTF-8"" standalone=""yes""?>" & vbCrLf
        xmlContent = xmlContent & "<student-data xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"">" & vbCrLf
        xmlContent = xmlContent & "    <record>" & vbCrLf
        xmlContent = xmlContent & "        <TAGNAME1>" & ws.Cells(i, 1).Value & "</TAGNAME1>" & vbCrLf
        xmlContent = xmlContent & "        <TAGNAME2>" & ws.Cells(i, 2).Value & "</TAGNAME2>" & vbCrLf
        xmlContent = xmlContent & "        <TAGNAME3>" & ws.Cells(i, 3).Value & "</TAGNAME3>" & vbCrLf
        xmlContent = xmlContent & "    </record>" & vbCrLf
        xmlContent = xmlContent & "</student-data>"
        
        ' 写入并保存XML文件
        Open xmlFileName For Output As #1
        Print #1, xmlContent
        Close #1
    Next i
    
    MsgBox "所有XML文件已导出完成！"
End Sub

4. 调整关键参数：
   • 将Sheet1替换为实际工作表名称
   • 将C:\Your\Target\Folder\替换为保存XML的文件夹路径
   • 根据列数和标签名，修改<TAGNAME1>等标签和对应的单元格引用（ws.Cells(i, 1)代表第i行第1列）
5. 按F5运行宏，或回到Excel界面，通过「开发工具」→「宏」→选择ExportRowsToXML执行

方法二：Power Query（低代码方案） #

适合无VBA基础的用户，步骤如下：

1. 选中Excel数据区域，点击「数据」选项卡→「自表格/区域」，将数据导入Power Query编辑器
2. 点击「添加列」→「自定义列」，输入以下公式（替换列名为实际表头名称）：

"<?xml version=""1.0"" encoding=""UTF-8"" standalone=""yes""?>
<student-data xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"">
    <record>
        <TAGNAME1>" & [你的列名1] & "</TAGNAME1>
        <TAGNAME2>" & [你的列名2] & "</TAGNAME2>
        <TAGNAME3>" & [你的列名3] & "</TAGNAME3>
    </record>
</student-data>"

3. 点击「确定」后生成包含完整XML文本的新列，关闭Power Query并将数据上载到新工作表
4. 用简化VBA批量保存XML：

Sub SaveXMLFromCells()
    Dim ws As Worksheet
    Dim lastRow As Long, i As Long
    Dim savePath As String
    
    Set ws = ThisWorkbook.Worksheets("PowerQuery结果表")
    savePath = "C:\Your\Target\Folder\"
    
    lastRow = ws.Cells(ws.Rows.Count, "D").End(xlUp).Row ' 假设XML文本在D列
    For i = 2 To lastRow
        Open savePath & i - 1 & ".xml" For Output As #1
        Print #1, ws.Cells(i, "D").Value
        Close #1
    Next i
    MsgBox "保存完成"
End Sub

方法三：Python脚本（适合大量数据批量处理） #

适合有编程基础的用户，步骤如下：

1. 安装依赖库：打开命令提示符，执行pip install pandas openpyxl
2. 创建并运行Python脚本（替换文件路径和列名）：

import pandas as pd
import os

# 读取Excel文件
df = pd.read_excel("your_excel_file.xlsx", sheet_name="Sheet1")

# 设置XML保存目录（自动创建不存在的目录）
save_dir = "C:\\Your\\Target\\Folder\\"
os.makedirs(save_dir, exist_ok=True)

# 遍历每行生成并保存XML
for idx, row in df.iterrows():
    # 构建XML内容，替换列名为实际表头
    xml_content = f'''<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<student-data xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
    <record>
        <TAGNAME1>{row["列名1"]}</TAGNAME1>
        <TAGNAME2>{row["列名2"]}</TAGNAME2>
        <TAGNAME3>{row["列名3"]}</TAGNAME3>
    </record>
</student-data>'''
    # 生成文件名（1.xml、2.xml...）
    file_path = os.path.join(save_dir, f"{idx + 1}.xml")
    # 写入文件
    with open(file_path, "w", encoding="utf-8") as f:
        f.write(xml_content)

print("所有XML文件导出完成")

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