excel数据导出为文本-excel内容导出为文本文件

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