如何将excel的数据导到txt文件里？(50分)

谢谢

ADO连接EXCEL
ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+EXCEL文件名+';Extended Properties=Excel 8.0;Persist Security Info=False';

这下随便你怎么捣
可以将其弄到MEMO上然后SAVETOFILE

uses ComObj;
//OldFileName: 原文件名(C:/*.xls),NewFileName: 新文件名(C:/*.txt)
procedure SaveXlsAsTxt(const OldFileName, NewFileName: string);
const
xlText= $FFFFEFC2;
var
XlsApp: OleVariant;
begin
try
try
XlsApp := CreateOleObject('Excel.Application');
XlsApp.DisplayAlerts := False;
XlsApp.WorkBooks.Open(OldFileName);
XlsApp.ActiveWorkbook.SaveAs(NewFileName, xlText, False);
except
end;
finally
if not VarIsEmpty(XlsApp) then
XlsApp.Quit;
XlsApp := Unassigned;
end;
end;

接受答案了.