含有多个工作表的Excel 导出为txt ，并分别以各自工作表的名字命名。

Question

有一个excel，含有多个工作表，名字各不相同。想要一个宏，每个表分别导出为以各自的工作表名命名的.txt文件。
自己录了一个宏，改了一下，但是始终不好用，求救。

Answer 1

用下面代码吧，使用时将需要另存的工作簿处于活动状态，然后执行代码，生成的文本文件会另存到D盘的abc目录下面（可改成自己需要的目录）。
Sub 另存工作表为文本文件()
With ActiveWorkbook
For i = 1 To .Sheets.Count
.Sheets(i).Copy
ActiveWorkbook.SaveAs Filename:="d:\abc\" & .Sheets(i).Name & ".txt", FileFormat:=xlText
ActiveWorkbook.Close (False)
Next
End With
End Sub

Answer 2

Sub Macro1()
For Each sh In ThisWorkbook.Sheets
sh.Select
F_path = "C:\Documents and Settings\fw-dcf\桌面\" '''自行更改路径，'当前工作簿的路径 ThisWorkbook.Path
ActiveWorkbook.SaveAs Filename:=F_path & ActiveSheet.Name & ".txt", FileFormat:=xlText, _
CreateBackup:=False
Next
End Sub