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

Sub baocun()
ActiveSheet.SaveAs Filename:= _
ThisWorkbook.Path & "\" & ActiveSheet.Name & ".txt", FileFormat:= _
xlUnicodeText, CreateBackup:=False
End Sub
如果想保存那个工作表,那么这个工作表就必须在激活状态,才能保存正确。