关于导出excel文件的问题

Question

下面是导出excel的部分程序
var
eclapp,workbook:variant;if savedialog1.execute then
    begin
      i:=2;
      fname:=SaveDialog1.Files[0];
      try
      eclapp:=createoleobject('excel.application');
      workbook:=createoleobject('excel.sheet');
      except
      workbook:=eclapp.workbooks.add;
      ........
      workbook.close;
但是如果突然出现死机或其它原因中断程序， 就没有执行到workbook.close这一句。
结果在进程中还是存在excel.exe,然后下次再运行可能又会多创建一个，
如果想在每次创建之前，做个判断，应该怎么做

Answer 1

呵呵，如果你是在dbgrid 中导出为excel表，那简单
我 有篇帖子，你去看看，应该对你有帮助！~~~
http://expert.csdn.net/Expert/topic/1855/1855520.xml?temp=.8858454