How to generate XML files using vba to excel-CodePudding

Non-it institute of female, for help you a great god, and how to excel in the data into XML format in the file ~ now write VBA program is as follows, but I don't know how to write, remaining part of the great spirit guide:
Sub cheliang ()
Dim fso As Object, sFile As Object
Dim iRow As an Integer, FileName As String
The Set of fso=CreateObject (" scripting. FileSystemObject ")
FileName="D: \ EV XML"
The Set sFile=fso. CreateTextFile (FileName)
For iRow=2 To Sheet1. Range (" A65536 "). The End (xlUp). Row
SFile. Write "& lt; The parameter "& amp; "" & amp; "Name=" & amp; "" "" & amp; Sheet1. Cells (iRow, 1). The Value & amp; "" "" & amp; "
"SFile. Write "displayname=" & amp; "" "" & amp; Sheet1. Cells (iRow, 2). The Value & amp; "" "" & amp; "
"SFile. Write "unit=" & amp; "" "" & amp; Sheet1. Cells (iRow, 3). The Value & amp; "" "" & amp; "
"SFile. Write "type=" & amp; "" "" & amp; Sheet1. Cells (iRow, 4). The Value & amp; "" "" & amp; "
"
'
'cheliang Macro
'
End Sub

CodePudding user response:

Fyi:

 Set fs=CreateObject (" Scripting. FileSystemObject ") 
Set a=fs. CreateTextFile (" c: \ alltext TXT ", True) 
For each page in ThisDocument. Pages 
Aleem walji riteLine (" page - : "+ page. The name +" - ") 
For each shape in page. Shapes 
Aleem walji riteLine (shape. The Text) 
Next 
Next 
A.C lose 
Set a=Nothing 
Set the fs=Nothing