前文我们说过用excel创建文本文件。那么如何把excel文件内容导入导出文本文件呢？

这里我们用到excel另存为的方法保存数据到excel。如果生成的excel文件存在，删除后再输出。如图所示：

详细源码，运行代码，填写生成的文本文件名，确定即可

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 "保存成功！"