从EXCEL 导入记录后,如何释放?否则另外打开一个EXCEL文件得重启电脑.

从EXCEL 导入记录后,如何释放?否则另外打开一个EXCEL文件得重启电脑. VCL组件开发及应用
http://www.delphi2007.net/DelphiVCL/html/delphi_20061222180704179.html
从EXCEL   导入记录后,如何释放?否则另外打开一个EXCEL文件得重启电脑  
   
   
  谢了.

附代码:  
   
   
  MsExcel   :=   CreateOleObject('Excel.Application');  
      WorkBook   :=   MsExcel.Application;  
      filename:=trim(edit_filename.Text);  
      WorkBook.WorkBooks.Open(filename);  
      WorkBook.Visible   :=   False;  
      WorkSheet:=   WorkBook.ActiveSheet;  
   
       
      for   i:=2   to   WorkSheet.UsedRange.Rows.count   do  
      begin  
            ......  
      end;  
 

执行完后,需要退出时  
  WorkBook.Quit;

使用完后直接ExcelOPen.Quit;就OK了   。如果有连接就先断开连接disconnectio然后再QUIT

posted on 2008-11-18 14:21  delphi2007  阅读(342)  评论(0编辑  收藏  举报