发布网友
共5个回答
热心网友
需要退出并选择另存,再在选择格式(txt)才可以,不可以在当前文件中保存为txt格式,EXCEL默认的格式xls。
热心网友
新建一个模块,将代码复制到到这个模块中,就会将当前工作表保存到thisworkbook目录下,并以txt格式来保存。如下图执行的效果,执行后频幕左下角可以看到保存后的文档:
Sub baocun()
ActiveSheet.SaveAs Filename:= _
ThisWorkbook.Path & "\" & ActiveSheet.Name & ".txt", FileFormat:= _
xlUnicodeText, CreateBackup:=False
End Sub
如果想保存那个工作表,那么这个工作表就必须在激活状态,才能保存正确。
热心网友
Sub 激活工作表存为txt()
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\ " & ActiveSheet.Name & ".txt", FileFormat:= _
xlText, CreateBackup:=False
End Sub
热心网友
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
热心网友
Sub SaveAsWork()
ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\123.txt"
End Sub追问只保存当前工作表,不是整个工作簿啊?而且这样保存就是乱码了
追答但是你打开的时候用EXCEL打开就是原始数据,不会是乱码。