[啊啊啊，要疯了]同样的过程，不同的运行环境，得到的结果也大不相同

jxqn_liu 2012-08-17 10:23:07



procedure ReadBankExcel(FileName: string);

var

  ExcelApp,Sheet: Variant;

begin

  SaveLog('对账文件读取开始======','对账文件名：' + FileName);

  ExcelApp:=CreateOleObject('Excel.Application');

  //Excel

  try

    SaveLog('对账文件读取开始2','对账文件名：' + FileName);

    ExcelApp.Worksheets.Open(FileName); //打开已存在工作簿

    ExcelApp.Worksheets[1].Activate; //打开第1个工作表

  except on e: Exception do

    SaveLog('创建Execl对象','MICROSOFT EXCEL没有安装或其他错误，错误信息：' + e.Message);

  end; 

  SaveLog('对账文件读取4','对账文件名：' + FileName);

end;

  

//读取每日对账

procedure ReadBankExcelEX(FileName,BakFilePath: string);

var

  eaImport: TExcelApplication;//

  ewbImport: TExcelWorkbook;

  st: TExcelWorksheet;   //sheet

  BakFileName: string;

begin

  //记录日志

  SaveLog('对账文件读取开始','对账文件名：' + FileName);

  //备份目录

  BakFilePath := Trim(BakFilePath);

  if BakFilePath = '' then

  begin

    BakFilePath := ExtractFileDir(ParamStr(0)) + 'Bak\';

    if not DirectoryExists(BakFilePath) then

      CreateDir(BakFilePath);

  end;



  if Copy(BakFilePath,Length(BakFilePath),1) <> '\' then

    BakFilePath := BakFilePath + '\';



  BakFilePath := BakFilePath + FormatDateTime('YYYYMM',Now) + '\';    //备份目录加上年月

  if not DirectoryExists(BakFilePath) then

    CreateDir(BakFilePath);

  SaveLog('对账文件==1','对账文件名：' + ExtractFileName(FileName));

  BakFileName := BakFilePath + ExtractFileName(FileName);  //备份文件名称



  SaveLog('对账文件==2','对账文件名：' + ExtractFileName(FileName));



  eaImport := TExcelApplication.Create(Application);

  eaImport.Caption := 'Microsoft Excel JHImport';

  try

    eaImport.ConnectKind := ckNewInstance;

    eaImport.Connect;

  except

    eaImport.Free;

    Exit;

  end;

  SaveLog('对账文件==3','对账文件名：' + ExtractFileName(FileName));

  try

    eaImport.Workbooks.Open(FileName,null,null,null,null,null,null,null,null,null,null,null,null,null,null,0);

    SaveLog('对账文件==999','对账文件名：' + ExtractFileName(FileName));

    eaImport.Visible[1] := False;

  except on e: Exception do

    begin

      SaveLog('对账文件读取','对账文件名：' + FileName + '打开时出错：' + e.Message);

      eaImport.Disconnect;

      eaImport.Quit;

      eaImport.Free;

      Exit;

    end

  end;

  SaveLog('对账文件1','对账文件名：' + FileName);

  ewbImport := TExcelWorkbook.Create(Application);

  st := TExcelWorksheet.Create(Application);



  //st.ConnectTo(eaImport.Worksheets[1]);

  ewbImport.ConnectTo(eaImport.Workbooks[1]);

  st.ConnectTo(ewbImport.Worksheets[1] as _Worksheet);

  //记录日志

  SaveLog('对账文件读取结束','对账文件名：' + FileName);

end;

备注：
SaveLog：是记录信息到本地磁盘中的

这里写了2个过程，都是执行打开Excel文件的操作。

现在的问题是：
如果创建一个Application应用程序，调用这2个过程都能执行成功
如果创建一个Application Service程序，在程序中调用则提示错误【OLE error 800A03EC】
在Service程序中如果将ReadBankExcel过程中的
ExcelApp.Worksheets.Open(FileName);改为ExcelApp.WorkBooks.Open(FileName);
则出错，错误：类 WorkBooks 中 Open 无效

请教各位大神，这是什么原因啊！！！！

...全文