excel内容导出为文本文件

前文我们说过用excel创建文本文件。那么如何把excel文件内容导入导出文本文件呢？
这里我们用到excel另存为的方法保存数据到excel。如果生成的excel文件存在，删除后再输出。如图所示：
1510648435140692.png (75.8 KB, 下载次数: 0, 售价: 6 金钱)

2022-4-21 20:36 上传

点击文件名下载附件
1510648435140692.png

1510648450136186.png (11.41 KB, 下载次数: 0, 售价: 2 金钱)

2022-4-21 20:36 上传

点击文件名下载附件
1510648450136186.png

详细源码，运行代码，填写生成的文本文件名，确定即可Sub工作表保存为文本文件()
DimsFNameAsString
sFName=Application.InputBox("请输入导出的文本文件的名称：","输入文件名称",2)
IfsFName="False"OrsFName=""ThenExitSub
sFName=ThisWorkbook.Path&"\"&sFName&".txt"
OnErrorResumeNext
IfLen(Dir(sFName,vbDirectory))>0Then
IfMsgBox("该文件已经存在，是否删除？",vbQuestion+vbYesNo)=vbYesThen
KillsFName '删除已有的同名文件
Else
ExitSub
EndIf
EndIf
OnErrorGoTo0
Setws1=Worksheets("Sheet1")
ActiveWorkbook.SaveAssFName,xlCSV
MsgBox"保存成功！"