uses Excel97;
procedure ExcelOut;
var workbook,sheet:variant;
xlapp,q:variant;
begin
xlapp:=GetExcelObject('Excel.Application');
xlapp.visible:=true; //此属性为true，导出时会打开一个Excel文件,看到一行一行的写入数据
if xlapp.workbooks.count<=0 then
xlapp.workbooks.add;
xlapp.worksheets.add;
sheet:=xlapp.ActiveWorkBook.activesheet;
sheet.cells[1,6].font.color:=clgreen;//单元格字体颜色
sheet.cells[1,6].font.size:=20;//单元格字体大小
sheet.cells[1,6].font.bold:=true;//单元格字体样式
sheet.cells[1,6]:='表头'; //单元格内容
sheet.rows[5].font.bold:=true;//设置整行字体样式
sheet.rows[5].HorizontalAlignment := xlCenter;//设置整行每单元格内容居中
sheet.rows[5].Interior.Color:=clyellow;//设置整行背景色
q:=sheet.Range['A3','W5'];
q.borders.linestyle:=1;//设置某一区域边框可见
q:=sheet.Range['B3','E3'];
q.Merge;//合并单元格B3--E3
xlapp.ActiveWorkBook.SaveAs(savedialog1.FileName);//保存文件
xlapp.ActiveWorkBook.close;
xlapp.quit;//关闭退出，否则线程里会留下Excel.exe
end;