将delphi的数据导入excel

1、在单元文件加入ComObj,创建 Excel 表格，
   var ExcelID: Variant;
     ExcelID := CreateOleObject( 'Excel.Application' ); 这样就创建一个excel application 实例
2、添加新工作簿：
  ExcelID.WorkBooks.Add;  添加默认数量的工作簿
3、设置第1个工作表为活动工作表：
  ExcelID.WorkSheets1].Activate;  或 ExcelID.WorkSheets[ 'Sheet1' ].Activate;
   设置活动工作表后，就可以在活动工作表中添加你所说的数据
4、添加数据到表中：
  ExcelID.Cells[1,2].Value :=Edit1.Text;  第一行第二列  B1
  ExcelID.Cells[2,2].Value:= Edit2.Text;  第二行第二列  B2
5、合并代码：
  ExcelID.cells[1,6].value:="=sum(a1:a5)";
  A1--A5 累计到A6

转自：http://zhidao.baidu.com/question/377350327.html