請教:
我程式尚未關閉,只要有執行到以下程式碼,就不能再另外開啟Excel檔案,
可以用程式開啟,而是不能在.XLS檔點2下開啟,一定要把程式停掉才能再開,
要如何解決呢?


procedure xlsFile;
var
theExcel :Variant;
begin
//1.開啟Excel檔案
try
theExcel := CreateOleObject('Excel.Application');
theExcel.WorkBooks.Open(currFile);
theExcel.Visible := false;
except
errLog.Add('Open Excel OLE Object Failed !');
Exit;
end;
//2處理
.........................................
.........................................
//釋放
theExcel.Quit;
theExcel := Unassigned ;

------
一切都為了明天

theExcel.Visible := True 試試看

抱歉那麼晚回覆:
theExcel.Visible := True還是沒有效果

再補充一點
我的這支程式是自動由伺服器一直執行,
偵測到有XLS的檔案就會啟動以上的副程式
程式在伺服器執行中還是不能在Windows開啟Excel

------
一切都為了明天

編輯記錄

多用搜尋功能，多測試一下，就可以用了，幫你找了一個

讀取Excel檔後,要如何釋放....
http://delphi.ktop.com.tw/board.php?cid=30&fid=66&tid=90413

------
努力會更接近成功

此篇發錯
請看下面的

------
一切都為了明天

編輯記錄

問題:
試了多種方法,問題一樣存在,雖然在工作管理員裡已經找不到Excel.exe,
但是只要程式未關閉,我在某資料夾點A.xls(或任一個*.xls)的檔案,都不能開啟
只要把程式關掉,剛剛點的A.xls馬上出現

已找到問題點
因為我這支程式是自動掃讀,所以程式一直處於執行中
有在程式中測試加入showMessage,執行到showMessage就可以開啟了
可是因為自動掃讀,沒有人會去按showMessage,
那有何種方法可以讓程式暫停,Sleep也沒有效

------
一切都為了明天

用兩支程式互相呼叫,
執行完直接關閉, 然後再叫另外一支
(我亂寫的, 不要打我)

------
努力會更接近成功