【结贴】excel进程无法退出

lili7912

我们把所有对象创建后，再按顺序释放后，excel的进程在任务管理嚣中还存在。

代码如下：
lExcel:=comobj.CreateOleObject('Excel.application');
  lapp :=system.DispatchHelper.Create(lexcel);
  lWorkBook:=lApp.PropertyGet('WorkBooks',[]);
  ldocs :=system.DispatchHelper.Create(lWorkBook) ;
  ldocs.InvokeMethod('ADD',[]);
  lOsheet:=lapp.PropertyGet('Sheets',[]);
  lsheets :=system.DispatchHelper.Create(lOsheet);
  lsheetNum :=lsheets.PropertyGet('Count',[]);

    lsheets.InvokeMethod('Add',[]);  //这代码加上excel 进程就还在。注释后在任务管理器中有没有excel的进程了



   //保存Excel
  lOAD:=lApp.PropertyGet('ActiveWorkbook',[]);
  lADoc:=System.DispatchHelper.Create(lOAD);
  lADoc.InvokeMethod('saveas', [lOpenDialog.FileName+'.xls']);

  lADoc.InvokeMethod('Close',[]) ;
  ldocs.InvokeMethod('close',[]) ;

  lApp.InvokeMethod('Quit', []);

  ( lOAD  as System.IDisposable).Dispose ;
  (lOsheet as System.IDisposable).Dispose;
  (lWorkBook as System.IDisposable).Dispose;
  (lExcel as System.IDisposable).Dispose;

zfang

请楼主参考 http://bbs.justep.com/forum.php?mod=viewthread&tid=27065 的6楼。

lili7912

这我们都看了几次了。都按上面说的做的。结果还是一样
lsheets.InvokeMethod('Add',[]);  //这代码加上excel 进程就还在。注释后在任务管理器中有没有excel的进程了
帮忙看一下这。去掉这代码就没问题了

zfang

完整代码贴一下。

lili7912

procedure TSBZGSCT.CSExcel;
var
   I,lJ:Integer;
   lExcel,lWorkBook,lOsheet,lSheetNum,lOWorksheetbject;
   lOADbject;
   lApp,ldocs,ldoc,lSheets,lADoc:system.DispatchHelper;
   lWorksheet{,lworksheet}:system.DispatchHelper;
   lOpenDialog:TOpenDialog;
begin
  lOpenDialog := TSaveDialog.Create(nil);
  lOpenDialog.Filter := 'Microsoft Excel (*.xls|*.xls|All files (*.*)|*.*';
  if not lOpenDialog.Execute then   exit ;
  if FileExists(lOpenDialog.FileName+'.xls')  then
  begin
    if JsDialogs.ConfirmBox('该文件已经存在,是否要覆盖该文件?','询问',2)=false
     then
      exit;
  end;
//创建Excel
  lExcel:=comobj.CreateOleObject('Excel.application');
  lapp :=system.DispatchHelper.Create(lexcel);
  lWorkBook:=lApp.PropertyGet('WorkBooks',[]);
  ldocs :=system.DispatchHelper.Create(lWorkBook) ;
  ldocs.InvokeMethod('ADD',[]);
  lOsheet:=lapp.PropertyGet('Sheets',[]);
  lsheets :=system.DispatchHelper.Create(lOsheet);


    lsheets.InvokeMethod('Add',[]); //这代码加上excel 进程就还在。注释后在任务管理器中有没有excel的进程了

  
    //保存Excel
  lOAD:=lApp.PropertyGet('ActiveWorkbook',[]);
  lADoc:=System.DispatchHelper.Create(lOAD);
  lADoc.InvokeMethod('saveas', [lOpenDialog.FileName+'.xls']);

lADoc.InvokeMethod('Close',[]) ;
  ldocs.InvokeMethod('close',[]) ;

  lApp.InvokeMethod('Quit', []);

  ( lOAD  as System.IDisposable).Dispose ;
  (lOsheet as System.IDisposable).Dispose;
  (lWorkBook as System.IDisposable).Dispose;
  (lExcel as System.IDisposable).Dispose;
end;

zfang

lsheets.InvokeMethod('Add',[]);
这句话返回的是一个对象，你要定义一个，然后释放他。

lili7912

谢谢，明白了！解决问题，结帖吧