VBA中如何将Excel文件保存为文本文件（制表符分隔）格式的文件

RT
我试过录制宏的语句，还是不行，提示错误。
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Documents and Settings\admin\My Documents\Book1.txt", FileFormat:= _
        xlText, CreateBackup:=False
    Range("E4").Select

请高手帮忙，谢谢！ --------------------编程问答-------------------- 这个上次在哪看过，其实我倒是想知道反过来怎么把txt转成excel，这个还比较有用途 --------------------编程问答-------------------- ActiveWorkbook.SaveAs Filename:="ActiveWorkbook.SaveAs Filename:= _
  "ThisWorkbook.Path" & "\Book1.txt", FileFormat:= xlCSV
--------------------编程问答-------------------- ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\Book1.txt", FileFormat:= xlCSV

补充：VB ,  VBA