Dim str As String = ""
Dim cs() As String = {"第一列", "第二列"}
str &= "<root>"
For Each r As Row In Tables("表a").rows
str &= "<表A>"
For Each c As String In cs
str &= "<" & c & ">" & r(c) & "</" & c & ">"
Next
str &= "</表A>"
Next
str &= "</root>"
msgbox(str)
Dim doc As New System.XML.XmlDocument()
doc.LoadXml(str)
Dim stream As new System.Io.FileStream("d:\test.xml", System.Io.FileMode.OpenOrCreate, System.Io.FileAccess.Write)
doc.Save(stream)
stream.Close()