在delphi中调excel，关闭不了excel进程！！怎么办？？多谢各位了

Question

我想把数据库中数据用excel打出来做报表，在delphi中调用了，
可是关闭不了excel进程！
请朋友帮我把这段代码给我吧，最好是告诉我怎么在代码中把excel进程关闭啊
我的代码如下
 try
 excelapplication1.Connect;
 except
  abort;
 end;
excelapplication1.Visible[0]:=true;
excelapplication1.Caption:='连接excel';
 excelapplication1.Workbooks.Add(null,0);
 excelapplication1.Workbooks.Add(emptyparam,0);
 excelworkbook1.ConnectTo(excelapplication1.Workbooks[1]);
 excelworksheet1.ConnectTo(excelworkbook1.Worksheets[1] as _worksheet);
这样做会开许多工作薄，我就像要一个工作薄！每次关了excel可是再次调用就会出现book2之类的了没
book1了！！！！！！！！！！！

Answer 1

搂主可以搜索一下关于导出Excel的帖子
太多太多了
我不想再贴代码上来了

Answer 2

uses
 shellapi;procedure TForm1.Button1Click(Sender: TObject);
var
 hnd:THandle;
begin
      hnd:=FindWindow(nil,'Microsoft Excel - EXCEL名稱');
      if IsWindow(hnd) then
      SendMessage(hnd,WM_CLOSE,0,0);
end;

Answer 3

v:=CreateOleObject('Excel.Application'); 
 v.WorkBooks.Open(path+'\yunshu.lci',0,false,1,'l00);  
Sheet:=v.WorkBooks[1].WorkSheets[9];Sheet.Cells[5,2]:=strtofloat(edit1.Text);   v.WorkBooks[1].save;         
   v.WorkBooks[1].close;          
   v.quit;                       
   v:=Unassigned;