请教一问题啊，delphi操作EXCEL表的问题！

Question

请教一问题，
我是用delphi操作excel表，运行程序时，如果电脑打开了excel表，那么程序运行就出错！
检测到错误类EOLE EXCEPTION，错误信息：‘OLE error800A03EC’
所以程序只能在完全没有打开一张EXCEL表的时候才能运行！各位亲们~  求解决问题哈！！！附代码  aPath:=ExtractFilePath(application.ExeName);
        dlgSave1.FileName:=edtdn.Text;
       if dlgsave1.Execute then
         begin
           sfile:=dlgsave1.FileName;
           aFullName:=aPath+'***.dll';
          copyfile(pansichar(aFullName),pansichar(sfile),false);
         exclwrkbkabook.ConnectTo(aExcel.Workbooks.Open(sfile,Emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,0));
          exclwrkbkabook.ConnectTo(aExcel.Workbooks[1]);
          aSheet.ConnectTo( exclwrkbkabook.Worksheets[1]  as  _worksheet);

Answer 1

一般都不是用这种，不好使，直接用Comobj比较好使。或者有种更方便的思路ECMA 376。
var
  App ,WorkBook, WorkSheet :OleVariant;
...
  App :=CreateOleObject('Excel.Application');
  App.Visible :=False;
  WorkBook :=App.WorkBooks.Open(FileName);
  try
    WorkSheet :=WorkBook.WorkSheets['Sheet1'];
    ....
  finally
    WorkBook.close;
    App.Quit;
  end;