Question

您好我是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

我希望改变这一点，因此文本输出不仅仅是＆＃34; celldataA *＆＃34; ＆＃34; celldataB *＆＃34;等
我想这样做，以便文档开头 <rule>以</rule>结尾然后每一行都会出现

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

任何指针？我或者我自己手动完成3.5k次，所以任何帮助都是受欢迎的。

Answer 1

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

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

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

1 个答案: