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

如题所述

需要退出并选择另存,再在选择格式(txt)才可以,不可以在当前文件中保存为txt格式,EXCEL默认的格式xls。
温馨提示:答案为网友推荐,仅供参考
第1个回答  2015-10-24

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


  Sub baocun()

  ActiveSheet.SaveAs Filename:= _

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

  xlUnicodeText, CreateBackup:=False

  End Sub

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

第2个回答  2012-05-30
Sub 激活工作表存为txt()
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\ " & ActiveSheet.Name & ".txt", FileFormat:= _
xlText, CreateBackup:=False

End Sub
第3个回答  2012-05-30
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
第4个回答  2012-05-30
Sub SaveAsWork()
ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\123.txt"
End Sub追问

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

追答

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

相似回答