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

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 无效

请教各位大神，这是什么原因啊！！！！
[解决办法]
啊啊啊啊，没人嘛
[解决办法]
可能Windows的service程序有限制.必须做成service吗
[解决办法]

引用:

可能Windows的service程序有限制.必须做成service吗

是的，通过客户段发送个消息给服务器，然后服务器执行后将结果告诉客户端。我这所说的客户端服务器是通过TCP通讯连接的
[解决办法]
没人吗

是不是Service服务不能创建ExcelApplication对象啊，来个大神指点下！
[解决办法]
是不是Service服务不能创建ExcelApplication对象啊，来个大神指点下！