• 准备你的Excel数据，确保第一行为列标题（如：姓名、年龄、城市）。
• 点击【开发工具】→【XML】→【XML 映射】面板。
• 如果没有“开发工具”选项卡，先在【文件】→【选项】→【自定义功能区】中勾选“开发工具”。
• 在“XML 映射”窗格中，点击“添加”，会提示你创建一个示例XML文件或导入XML架构（XSD）。
• 你可以手动创建一个简单XSD，或让Excel根据当前数据结构自动生成映射。
• 将列标题拖拽到XML映射窗格中，建立字段与XML元素的对应关系。
• 完成后，点击【导出】→选择保存路径，即可生成.xml文件。

• 点击【文件】→【另存为】。
• 选择保存类型为“Excel 工作簿 (*.xlsx)”下方的“XML 表格 (*.xml)”。
• 保存后，打开该文件会发现是包含样式和结构的XML，主要用于兼容旧版Excel。

= "<record><name>" & A2 & "</name></record>"

Sub ExportToXML()
    Dim filePath As String
    filePath = "C:\data.xml"
    Dim fileNum As Integer
    fileNum = FreeFile
    Open filePath For Output As #fileNum
    Print #fileNum, "<data>"
    Dim i As Integer
    For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
        Print #fileNum, "  <item>"
        Print #fileNum, "    <name>" & Cells(i, 1).Value & "</name>"
        Print #fileNum, "    <age>" & Cells(i, 2).Value & "</age>"
        Print #fileNum, "  </item>"
    Next i
    Print #fileNum, "</data>"
    Close #fileNum
    MsgBox "XML已生成：" & filePath
End Sub