用VB中如何将ecxel的Sheet1的全部内容另存到一个txt文件里面？求源代码

经过验证，下面这段VBA代码是可用的，会在该excel相同路径下生成一个test.txt文档。有问题请补充。
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