如何用VBA生成txt脚本

Question

有一个脚本模板，需要把脚本中的几个参数替换成Excel一行中相应单元格中的值，然后另存为txt格式的文本文件，一行一个文件；
例如：脚本模板如下：
***********
****** ######
**********
****** @@@@
**********
需要把模板中的######替换成excel中单元格A1中的数值，把@@@@替换成excel中单元格B1中的数值，然后把模板文件另存为名为excel中单元格C1中的字符串的txt文件，然后用excel的第二行继续替换，另存。。。

请问要完成上述任务，在excel宏中用VBA怎样编写，最好是有一个按键，用鼠标一点就开始生成脚本！
哪位大侠知道，请赐教啊！！！！

Answer 1

VBA生成TXT的代码如下：

Open "C:\输出.txt" For Output As #1 '生成TXT文件
Print #1, "输出内容" '写入TXT的内容
'如果要输出EXECL值，可以：Print #1,Range("A1") '将A1值输出
Close #1 '关闭文件句柄
MsgBox "C:\输出.txt 生成成功！" '提示

Answer 2

Sub 另存本表为TXT文件()
Dim FullName As String, tRan As Range
Application.ScreenUpdating = False
Set tRan = Range("A1")
Do While tRan <> ""
FullName = ThisWorkbook.Path & "\" & tRan.Offset(0, 2) & ".txt"
Open FullName For Output As #1

Print #1, "***********"
Print #1, "****** " & tRan
Print #1, "**********"
Print #1, "****** " & tRan.Offset(0, 1)
Print #1, "**********"
Close #1

Set tRan = tRan.Offset(1, 0)
Loop
Application.ScreenUpdating = True
MsgBox "生成完毕", , "http://www.excelba.com"
End Sub本回答被提问者采纳