Delphi中控制Excel

用Delphi从数据库中取得资料，然后导出到Excel中做成报表是个不错的选择，因为Excel强大的报表功能那可是没话说 
前提 
Delphi中要  
uses comobj; 
var Excel:Variant; 
一、Excel操作 
1.创建Excel对象 
Excel := CreateOleObject( Excel.Application ); 
2.显示Excel 
Excel.Visible:=true; 
3.更改标题 
Excel.Caption:=Excel的标题; 
4.退出Excel 
Excel.Quit; 
二、工作表操作 
1.添加新工作簿(刚创建的Excel对象是没有工作表的)： 
Excel.WorkBooks.Add; 
2.打开已存在的工作簿： 
Excel.WorkBooks.Open( C:ExcelDemo.xls ); 
3.设置第2个工作表为活动工作表： 
Excel.WorkSheets[2].Activate;  
或  
Excel.WorksSheets[Sheet2].Activate; 
4.打印预览工作表： 
Excel.ActiveSheet.PrintPreview; 
5.打印输出工作表： 
Excel.ActiveSheet.PrintOut; 
6.工作表另存为： 
Excel.SaveAs( C:ExcelDemo1.xls ); 
7.判断是否已经保存： 
if not Excel.ActiveWorkBook.Saved then 
Excel.ActiveSheet.PrintPreview; 
8.放弃存盘： 
Excel.