excel指定区域vba自动生成txt （当前代码是默认命名为 新文件.txt）想改在生成txt前可以手动命名

你的代码中，生成文件的语句是下面这行：

.SaveAs ThisWorkbook.Path &"\新文件.txt", FileFormat:=xlText

如果需要生成自己的名字，可以把这行修改为：

.SaveAs ThisWorkbook.Path &"\" &InputBox("输入文件名","确定文件名","新文件") &".txt", FileFormat:=xlText

Sub Test()

Dim Arr(0 To 2)

Arr(0) = A

Arr(1) = T

Arr(2) = C

Open "E:\FiveSix.txt" For Append As #1   '文件存在就追加，不存在就自动创建

Print #1, Arr(0)

Print #1, Arr(1)

Print #1, Arr(2)

Close #1

End Sub

你把问题想得太复杂了，其实VB本身的Open命令的Append方式就可实现你的目的，完全用不着FSO的。

补充一点：OutPut方式也会自动创建文件的（假定文件不存在），只不过它会覆盖原文件（假定文件存在）。另外，Print命令会自动换行的，Write则不会。

---