excel vba 如何当前工作表保存在当前目录下，格式为为txt

Question

如题所述

Answer 1

需要退出并选择另存，再在选择格式（txt）才可以，不可以在当前文件中保存为txt格式，EXCEL默认的格式xls。

Answer 2

　　新建一个模块，将代码复制到到这个模块中，就会将当前工作表保存到thisworkbook目录下，并以txt格式来保存。如下图执行的效果，执行后频幕左下角可以看到保存后的文档：

　　Sub baocun()

　　ActiveSheet.SaveAs Filename:= _

　　ThisWorkbook.Path & "\" & ActiveSheet.Name & ".txt", FileFormat:= _

　　xlUnicodeText, CreateBackup:=False

　　End Sub

　　如果想保存那个工作表，那么这个工作表就必须在激活状态，才能保存正确。

Answer 3

Sub 激活工作表存为txt()
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\ " & ActiveSheet.Name & ".txt", FileFormat:= _
xlText, CreateBackup:=False

End Sub

Answer 4

Sub 导出文本文件()
Dim Fname As String
Fname = ActiveWorkbook.Path
If Right(Fname, 1) <> "\" Then Fname = Fname & "\"
ActiveWorkbook.SaveAs Filename:=Fname & "123.txt", FileFormat:=xlText, CreateBackup:=False
ActiveWorkbook.Saved = True
ActiveWindow.Close
End Sub

Answer 5

Sub SaveAsWork()
ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\123.txt"
End Sub追问

只保存当前工作表，不是整个工作簿啊？而且这样保存就是乱码了

追答

但是你打开的时候用EXCEL打开就是原始数据，不会是乱码。