VB 保存txt文件

假如我们要保存一个文件名为C:\1.txt，但保存这前要检测c:\1.txt这个文件是否存在，可用以下代码:

Private Sub Command1_Click()

If Dir("C:\1.txt", vbNormal) <>"" Then

MsgBox "文件1.txt已存在 "'检测存在文件，不进行任何 *** 作

Else

Open "C:\1.txt" For Output As #1 '保存在C盘下

Print #1, "大家好" '在TXT里输入大家好

Close #1 '关闭

MsgBox "文件1.txt已保存在C盘了"

End If

End Sub

要测试，完全通过！

sub 保存文件()

Application.EnableEvents = False

ThisWorkbook.SaveAs Filename:=range("A1") &"\" &range("F1") &".xls"

Application.EnableEvents = True

end sub

---