急，高分相送！

Question

》》我用的是office XP,delphi5.0》》代码如下：
    eclApp:=CreateOleObject('Excel.Application');
    WorkBook:=CreateOleobject('Excel.Sheet');
        Try
      xlsFileName:=ExtractFilePath(Application.EXEName)+'NZFCG.XLS';
      WorkBook:=eclApp.workBooks.Open(xlsFileName);
      eclApp.workBooks[1].worksheets[1].Columns[1].value:='';
      eclApp.workBooks[1].worksheets[1].Columns[2].value:='';
      eclApp.workBooks[1].worksheets[1].Columns[3].value:='';
      eclApp.workBooks[1].worksheets[1].Columns[4].value:='';
      eclApp.workBooks[1].worksheets[1].Columns[5].value:='';
      eclApp.workBooks[1].worksheets[1].Columns[6].value:='';
      eclApp.workBooks[1].worksheets[1].Columns[7].value:='';
      eclApp.workBooks[1].worksheets[1].Columns[8].value:='';
      eclApp.workBooks[1].worksheets[1].Columns[9].value:='';
      eclApp.workBooks[1].worksheets[1].Columns[10].value:='';
      UpdateBANKS(eclApp,DM_CW.Query_WE1);
      workbook.save;
      WorkBook.Close;
    Except
      WorkBook.Close;
    end;
    eclApp.Quit;
    eclApp:=Unassigned;
    Screen.Cursor:=crDefault;
  Except
    Showmessage('错误：本机未安装Excel,或Excel打开错误1！');
  End;》》》每次运行到"workbook.save;"的时候出现错误“project acc.exe raised exception class eoleexception with message '命令不可用。因为使用该应用程序的许可已经过期',process stopped.use step or run to continue.” 如果去掉workbook.save;"程序运行正常，但不能保存。

Answer 1

http://expert.csdn.net/Expert/topic/1409/1409995.xml?temp=.7645227
http://expert.csdn.net/Expert/topic/1409/1409567.xml?temp=.9818079这些方法都试过了。都不行。只要能解决，这些分都给了。