關於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;  
 

繼續線上等....