【结贴】帮忙看一下代码，excel进程不注销。

qujinhai

在看吗？

lixy

我帖子说的很清楚了。
如果报错，你可以一点儿一点儿注释掉。
如果对delphi不熟悉也可以用其他工具写好dll,抄袭论坛上的导入dll的方法也可以。

lixy

例子：http://bbs.justep.com/forum.php?mod=viewthread&tid=26086

qujinhai

我在发帖之前看过论坛里的帖子，就是你给的那个连接，
(sourceworksheets as System.IDisposable).Dispose;
     (sourceworkbook as System.IDisposable).Dispose;
     (workbooks as System.IDisposable).Dispose;
此三句都注意注释掉，试过了，都出错。

lixy

另一个例子：http://bbs.justep.com/forum.php?mod=viewthread&tid=27029

lixy

3、我们最头疼的是我们quit后，word或者excel等进程还在进程里面存在。
  有个好办法解决：
  只要是  DispatchHelper.Create  出来的object对象，都要  
  (o2 as System.IDisposable).Dispose;
  所有的都Dispose就不会遗留进程了。
需要注意的
  1、别忘记某个对象的释放。因为bbs上很多
lSelection := DispatchHelper.Create(FApp.PropertyGet('Selection', []));  类似这样的嵌套写法，所以造成了我们忘记释放对象。
   2、注意对象释放的顺序。
   3、PropertyGet出来的object不用释放。如果后面有DispatchHelper.Create语句，是必须释放的。
   例子：o1:= FApp.PropertyGet('Range', ['A3:F3']);
              Range := DispatchHelper.Create(o1);//属性和对象
        o1必须释放。

你仔细看看例子和我的说明：
比如上面这个例子，你的写法相当于释放Range，而正确的写法是释放o1

qujinhai

sbook := sourceworkbook.PropertyGet('Sheets',[]);

(sbook as System.IDisposable).Dispose;
这样不对吗？

qujinhai

还有
workbook := workbooks.InvokeMethod('Open',[lExcelFileName]);
(workbook as System.IDisposable).Dispose;
我一楼的帖子里就是这样写的呀

zfang

给楼主一个例子

procedure TMAINFORM.Button1Click(Sender: TObject);
var
  openDialog:TOpenDialog;
  o,o1: Object ;
  excelApp,b: DispatchHelper;
begin
  openDialog:=TOpenDialog.Create(nil);
  if openDialog.Execute then
  begin
    o:=ComObj.CreateOleObject('Excel.Application');
    excelApp := DispatchHelper.Create(o);
    o1:=excelApp.PropertyGet('WorkBooks',[]);
  DispatchHelper.Create(o1).InvokeMethod('Open',[openDialog.FileName]);
     excelApp.InvokeMethod('Quit',[]);
     (o1 as System.IDisposable).Dispose;
    (o as System.IDisposable).Dispose;

  end;
end;

qujinhai

搞定了，循环里的分开，释放就行了