如何利用vba将excel生成xml文件

[weixin_39742609]

非IT的理工女，求助各位大神，如何将图片中的excel数据转化为图片中的xml格式文件~目前已写出的VBA程序如下，但还剩一部分不知如何编写，求大神们指导：
Sub cheliang()
Dim fso As Object, sFile As Object
Dim iRow As Integer, FileName As String
Set fso = CreateObject("scripting.FileSystemObject")
FileName = "D:\EV.xml"
Set sFile = fso.CreateTextFile(FileName)
For iRow = 2 To Sheet1.Range("A65536").End(xlUp).Row
sFile.write "<parameter" & "" & "name=" & """" & Sheet1.Cells(iRow, 1).Value & """" & ""
sFile.write "displayname=" & """" & Sheet1.Cells(iRow, 2).Value & """" & ""
sFile.write "unit=" & """" & Sheet1.Cells(iRow, 3).Value & """" & ""
sFile.write "type=" & """" & Sheet1.Cells(iRow, 4).Value & """" & ""

'
' cheliang Macro
'
End Sub

[赵4老师]

仅供参考：

Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("c:\alltext.txt", True)
for each page in ThisDocument.Pages
    a.WriteLine("----页:"+page.name+"----")
    for each shape in page.Shapes
        a.WriteLine(shape.Text)
    next
next
a.Close
Set a=Nothing
Set fs=Nothing