都是微软惹的祸-----Excel的新问题，急急急!!!

Question

to focus :
  不行,故障依旧。

Answer 1

也不要frm_toexcel.eapp.Destroy ;
        

Answer 2

        frm_toexcel.eapp.Quit ;
        frm_toexcel.eapp.Disconnect ; //quit excel
        ewb.Disconnect ;
        ews.Disconnect ;
这几句,都不要.

Answer 3

也不行  ,我的前面代码为：
rptName:=ename;
  Try
    frmPI.eapp.Connect ;
  Except
  End;
  frmPI.eApp.Visible[0]:=true;
  rptName :=  'C:\WINDOWS\Desktop\pi_'+rptname+'.xls';
  if Not FileExists(rptName) then
    frmPI.eWb.ConnectTo(frmPI.eApp.Workbooks.Add(EmptyParam,0))
  else
    frmPI.eWb.ConnectTo(frmPI.eApp.Workbooks.Open(rptName,EmptyParam,EmptyParam,
    EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
    EmptyParam,EmptyParam,EmptyParam,0));
    frmPI.eWS.ConnectTo(frmPI.eWb.Activesheet as _Worksheet);     frmPI.eApp.Rows.CopyFromRecordset(frmpi.etb.Recordset.Get_Source  ,4,1);    frmpi.tbPI1.Active :=true;
    frmpi.grd_toexcel.DataSource:=frmpi.eds ;
    frmpi.grd_toexcel.DataSource.DataSet.First;   快帮忙啊好急呀！！！！