Templates Excel打印命令，创建文本模板

您好，我是VBA新手，希望将Excel工作表数据输出到文本模板中。到目前为止，我所能做的只是输出数据，但我不知道从那里去哪里。我所拥有的：

Private Sub CommandButton1_Click()
Dim myFile As String, rng As Range, cellValue As Variant, i As Integer, j As Integer
myFile = "C:\Users\Francis\Desktop\redirect.txt"
Set rng = Selection
Open myFile For Output As #1

For i = 1 To rng.Rows.Count
    For j = 1 To rng.Columns.Count
    cellValue = rng.Cells(i, j).Value

If j = rng.Columns.Count Then
    Print #1, cellValue
Else
    Print #1, cellValue,
End If
    Next j
Next i
Close #1
End Sub

我希望对此进行更改，使文本输出不仅仅是“celldataA*”“celldataB*”等。
我想让文档以

并以

然后每一行都会显示为

  <rule name="Rule rownumber*" patternSyntax="ExactMatch" stopProcessing="true">
    <match url="celldataA*" />
    <action type="Redirect" url="celldataB*" />
  </rule>

---

有什么建议吗？就是这样，或者我自己手动做了3.5k次，所以欢迎任何帮助

这些关于从Excel生成XML的资源应该对您有所帮助

---

基本上，您创建一个模式文件，然后使用该模式输出xml数据来定义数据。

因此，您似乎希望根据自定义模式输出xml-是这样吗？您是否只需要上述xml，因为每次都是相同的？只需创建一个包含值的字符串并连接单元格数据？还是这更复杂？是的！就是这样。要以文本

开始文本文件，并以

结束文本文件，只需将行号*columnA*和columnB*拉入文本，如上所述，并对每行重复。不知道该怎么做。