delphi如何编程向EXCEL中写入数据？代码越详细越好

Question

怎么把一个数据写入到一个创建并指定文件名的EXECL电子表格中？一般我都是写到文本中，还是感觉写到EXCEL中方便，比如把123这个数据写入到电子表格A.XLS中 ？怎么弄，请提供完整代码

Answer 1

uses ComObj;var excel:Variant;
Sheet:Variant;
begin
  excel:=CreateOleObject('Excel.Application');
  excel.WorkBooks.Open(ExtractFileDir(Application.ExeName)+'\a.xls');
  Sheet:=excel.WorkBooks[excel.WorkBooks.Count].WorkSheets[1];
  sheet.Cells[1,1]:='123';
  excel.quit;