Sub 工作表保存为文本文件()
Dim sFName As String
sFName = Application.InputBox("请输入导出的文本文件的名称：", "输入文件名称", 2)
If sFName = "False" Or sFName = "" Then Exit Sub
sFName = ThisWorkbook.Path & "\" & sFName & ".txt"
On Error Resume Next
If Len(Dir(sFName, vbDirectory)) > 0 Then
If MsgBox("该文件已经存在，是否删除？", vbQuestion + vbYesNo) = vbYes Then
Kill sFName '删除已有的同名文件
Else
Exit Sub
End If
End If
On Error GoTo 0
Set ws1 = Worksheets("Sheet1")
ActiveWorkbook.SaveAs sFName, xlCSV
MsgBox "保存成功！"
