Question

我有一个包含三个工作表的Excel文件。其中一张是一张包含3500行的表，每行有200列。我需要使用以下格式将此表转换为xml文件：

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

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

我不知道最简单的方法是什么。我相信这可以使用宏或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

如何在xml文件中转换excel表？

1 个答案: