用DELPHI写一个代码，将EXCEL文件读取成TXT文本

Question

最好具体代码都贴上来，急用
全部分数献出

Answer 1

function XlsTo(xls,toFile:string;fileformat:Integer):Boolean;
var
ExcelWorkSheet:TExcelWorkSheet;
ExcelWorkBook:TExcelWorkBook;
ExcelApplication:TExcelApplication;
begin
Result:=false;
ExcelApplication:=TExcelApplication.Create(nil);
ExcelWorkBook:=TExcelWorkBook.Create(nil);
ExcelWorkSheet:=TExcelWorkSheet.Create(nil);
try
ExcelApplication.Connect;
except
ShowMessage('无法启动Excel。请检查是否已安装。');
ExcelWorkSheet.Free;
ExcelWorkBook.Free;
ExcelApplication.Free;
exit;
end;
ExcelApplication.Visible[0]:=false;
ExcelApplication.Workbooks.Open(xls,EmptyParam,True,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,0,EmptyParam,0);
ExcelWorkBook.ConnectTo(ExcelApplication.Workbooks.Item[1]);
ExcelWorkSheet.ConnectTo(ExcelWorkBook.Activesheet as _Worksheet);
try
if fileexists(toFile) then deleteFile(toFile);
ExcelWorkSheet.SaveAs(toFile,FileFormat);
except
ShowMessage('无法保存文档。请检查Excel是否被关闭。');
ExcelWorkSheet.Free;
ExcelWorkBook.Free;
ExcelApplication.Free;
exit;
end;
try
ExcelApplication.Quit();
ExcelWorkSheet.Disconnect;
ExcelWorkBook.Disconnect;
ExcelApplication.Disconnect;
finally
ExcelWorkSheet.Free;
ExcelWorkBook.Free;
ExcelApplication.Free;
end;
Result:=true;
end;
procedure TForm1.Button1Click(Sender:TObject);
var
i:Integer;
begin
XlsTo('1.xls','1.htm',xlTextWindows);
end;