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

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

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);