Excel vba生成xml文件

[w5200y]

<?xml version="1.0" encoding="utf-8" ?>
<VB6>
<!--库名-->
<Library Name="ADODB">
<!--类名-->
<Class Name="Command" ReplaceClsName="SqlClient.SqlCommand" UpgradeLevel="2">
<!--属性名-->
<Member Name="ActiveConnection" ReplaceMemName="Connection">
<UpgradeLevel>OK</UpgradeLevel>
<UpgradeFunction>ActiveConnection</UpgradeFunction>
</Member>
<Member Name="CommandText">
<UpgradeLevel>OK</UpgradeLevel>
<UpgradeFunction>CommandText</UpgradeFunction>
</Member>
......
</Class>

<Class Name="Connection">
<Member Name="Attributes">
<UpgradeLevel>OK</UpgradeLevel>
<UpgradeFunction>Attributes</UpgradeFunction>
</Member>
</Class>
</Library>

<Library Name="VBA">
<Class Name="Collection" UpgradeLevel="0">
<Member Name="Add">
<UpgradeLevel>OK</UpgradeLevel>
<UpgradeFunction>Add</UpgradeFunction>
</Member>
........
</Class>
</Library>
</VB6>

怎么循环Excel按照这个格式循环输出啊？？

[w5200y]

VBA Collection Collection Collection Microsoft.VisualBasic Match ok
VBA Collection Add Add Match ok
VBA Collection Count Count Match ok
VBA Collection Item Item Match ok
VBA Collection Remove Remove Match ok
VBA ErrObject ErrObject ErrObject Microsoft.VisualBasic Match ok
VBA ErrObject Description Description Match ok
VBA ErrObject HelpContext HelpContext Match ok
VBA ErrObject HelpFile HelpFile Match ok
VBA ErrObject LastDllError LastDllError Match ok
VBA ErrObject Number Number Match ok
VBA ErrObject Source Source Match ok
VBA ErrObject Clear Clear Match ok
VBA ErrObject Raise Raise Match ok
VBA Constants Constants Constants Microsoft.VisualBasic Match ok
VBA Constants vbBack vbBack Match ok
VBA Constants vbCr vbCr Match ok

Excel文本像这样排列的

[淡默]

等答案、一起学习