一段代码供参考,测试通过。
var excelapp,sheet:variant;
begin
try
excelapp:=createoleobject('Excel.application');
sheet:=createoleobject('excel.sheet');
except
application.MessageBox('请先安装MICROSOFT EXCEL!','提示',mb_ok+mb_iconinformation);
exit;
end;
sheet:=excelapp.workbooks.add;
excelapp.cells[1,1]:='工单制程统计表1';
sheet.worksheets.add;
excelapp.cells[1,1]:='工单制程统计表2';
excelapp.save;
excelapp.workbooks.close;
excelapp.quit;
end;