关于EXCEL操作的问题

关于EXCEL操作的问题 VCL组件开发及应用
http://www.delphi2007.net/DelphiVCL/html/delphi_20061225132236125.html
我想这样操作EXCEL  
  假如某个excel文件没打开，我对这个excel读操作完成之后就把这个文件关掉  
  如果这个excel文件打开了，我对这个文件读操作后，改文件不关闭  
  请问如何写  
  我是通过一个标志来判断这个文件是否打开   但是好像总是把excel关不掉   进行第二次操作的时候就暴错误了，说是找不到改文件  
      ExcelApplication.Disconnect;//退出的时候  
          if   IsOpen<>true   then  
              ExcelWorkbook.Close;

主要代码如下    
    iHandle   :=FileOpen(XlsFileName,   fmShareExclusive);  
      if   (iHandle   <   0)   then  
                        IsOpen:=True  
      else  
                        IsOpen:=false   ;  
        Excelapplication.Workbooks.Open(XlsFileName,null,null,null,null,  
              null,null,null,null,null,null,null,null,null,null,0);//打开指定的EXCEL   文件  
    ExcelWorkbook.ConnectTo(ExcelApplication.ActiveWorkbook);//ExcelWorkbook1与Eexcelapplication1建立连接  
      ExcelWorksheet.ConnectTo(ExcelWorkbook.Worksheets[Num]   as   _Worksheet);//Excelworksheet1与Excelworkbook1建立连接  
   
  ...//中间进行若干读操作  
   
    ExcelApplication.Disconnect;//出现异常情况时关闭  
   
      if   IsOpen<>true   then  
              ExcelWorkbook.Close;  
 

继续在线等....