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 无效
请教各位大神，这是什么原因啊！！！！
