EXCEL进程问题**

loworth

上周六问了关于判断Excel里的行数问题。
采用lixy给的方法，可以正确判断（采用Excel的 UsedRange.Rows.Count属性），但是退出时却关不上。

该如何关闭呢？
以下 我就简单调用了下打开，然后即关闭，但是进程关不上。
就是一个按钮，点击后Excel进程关不上。

procedure TMainForm.Button4Click(Sender: TObject);
var
  openDialog:TOpenDialog;
  Object;
  excelApp,excelWBs,excelWSsispatchHelper;
begin
  openDialog:=TOpenDialog.Create(nil);
  if openDialog.Execute then
  begin
    o:=ComObj.CreateOleObject('Excel.Application');
    excelApp := DispatchHelper.Create(o);
    DispatchHelper.Create(excelApp.PropertyGet('WorkBooks',[])).InvokeMethod('Open',[openDialog.FileName]);

    excelApp.InvokeMethod('Quit',[]);
    (o as System.IDisposable).Dispose;
  end;

end;

loworth

excelApp.InvokeMethod('Quit',[]);
    (o as System.IDisposable).Dispose;
这两句似乎不起作用，关不上。

crskyp

我这里也又这样的问题，

lixy

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]);
//   =DispatchHelper.Create(excelApp.PropertyGet('WorkBooks',[])).InvokeMethod('Open',[openDialog.FileName]);
     excelApp.InvokeMethod('Quit',[]);
     (o1 as System.IDisposable).Dispose;
    (o as System.IDisposable).Dispose;

  end;

end;

------------这样呢？

loworth

lixy 你那里试了 可以？？
我这里还是关不掉

不知  crskyp用楼上代码怎样呢。

lixy

如果4楼代码会遗留EXCEL进程的话。
那我无能为力了。