前文我们说过用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 "保存成功！"