如何转换一个XML文件中的Excel表格？

我有三个工作表的Excel文件。 其中一张纸是3500行，每行200列。 我需要把这个表格变成一个xml文件，格式如下：

<xml> <element columm1="attribute1" columm2="attribute2" /> </xml> 

其中“columnN”是每列的名称，“attributeN”是每行的值。 每个“元素”代表一个表格行。

我不知道这将是最简单的方法。 我相信这可以使用macros或VBA来完成，但我不确定，因为我不太了解这个语言。

理想情况下，如果表格格式更改（更多的行或列）或Excel文件更改（例如更多的电子表格），则可以调整过程。 非常感谢您的帮助。

Answer 1

这应该做的：

 Sub ToXML() MyFile = "data.xml" fnum = FreeFile() Open MyFile For Output As fnum Dim n As Integer n = 3 'Number of DATA rows Dim m As Integer m = 2 ' Number of columns Print #fnum, "<xml>" For i = 2 To n + 1 Print #fnum, "<element "; For j = 1 To m Print #fnum, Cells(1, j).Value & "=""" & Cells(i, j).Value & """ "; Next j Print #fnum, "/>" Next i Print #fnum, "</xml>" Close #fnum End Sub