批量xls 转 带字表符分隔的文本文件，或csv格式的也行
现需将某个文件夹下的 多个xls文件 转换成相对应的（带字表符分隔的）文本文件， csv格式的也行！手工操作，太麻烦了。
实在不行 单个转也行。 请高手指导！
ASTACKINFO(a程序)
cPath = ADDBS(JUSTPATH(a程序[2]))
cXLS = cPath + "123.xls"
cTXT = cPath + "123.txt"
oExcel = CREATEOBJECT("Excel.Application")
oExcel.DisplayAlerts = .F.
oExcel.WorkBooks.Open(cXLS)
oExcel.ActiveWorkBook.SaveAs(cTXT, -4158) && 另存为以制表符分隔的文本文件
oExcel.ActiveWorkBook.Saved = .T.
oExcel.WorkBooks.Close
oExcel.Quit