如何用VBA生成txt脚本

VBA生成TXT的代码如下：

Open "C:\输出.txt" For Output As #1 '生成TXT文件

Print #1, "输出内容" '写入TXT的内容

'如果要输出EXECL值，可以：Print #1,Range("A1") '将A1值输出

Close #1 '困凯高关闭文件句柄

MsgBox "C:\输出.txt 生成成功！" '汪尺孙激提示

第二行的{1}这样的内容是表上原来就有的困冲渗吧，使用这个里面的内容作为文件名，每个文件里面的正式数据是从第三行开始，对不对？

ALT+F11插入模块写程序，如下图：

程序代码文本为：

Option Explicit

Sub 导出数据()

  Dim arr, i, j

  arr = ActiveSheet.UsedRange

  For j = 1 To UBound(arr, 2)

      arr(2, j) = Trim(Replace(Replace(arr(2, j), "{", ""), "}", ""))

      If arr(2, j) <>"" Then

          '下面行里面的 i:\temp\tmp\ 表示报错的文件夹，你需要修改为自己的位置

          Open "i:\temp\tmp\" &arr(2, j) &".txt" For Output As #1

          For i = 3 To UBound(arr)

              Print #1, arr(i, j)

         判液 Next i

          Close #1

      End If

  Next j

End Sub

程序代码在我的电脑上执行成功，如果你遇到问题，希望截图的时候包含完整的EXCEL窗口，必须要看见汪脊行列标题。

---