用VBA中如何将ecxel的Sheet1的全部内容另存到一个txt文件里面？

Question

求VBA编写的源代码

Answer 1

如果没有特殊的要求可直接从文件另存为*TXT文件或另存为*CSV格式（是用“，”隔开的）。

Answer 2

Sub test()
Dim savePath As String
Set excelAPP = GetObject(ActiveWorkbook.Path)
savePath = ActiveWorkbook.Path & "\test.txt"

ActiveWorkbook.Worksheets("Sheet1").Activate
excelAPP.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=savePath, FileFormat:=xlText, CreateBackup:=False
excelAPP.Quit

End Sub本回答被提问者采纳