TRY
EXCEL := CreateOLEObject('EXCEL.APPLICATION');
EXCEL.WORKBOOKS.OPEN(TRIM(WFILE.Text));
EXCEPT
RAISE EXCEPTION.Create('無法啟動EXCEL');
EXIT;
END;
s:= StrToInt(VarToStr(EXCEL.WORKBOOKS[1].WORKSHEETS[1].EVALUATE('=COUNTIF($A:$A,"<>")')));
y:= StrToInt(VarToStr(EXCEL.WORKBOOKS[1].WORKSHEETS[1].EVALUATE('=COUNTIF($1:$1,"<>")')));

//....(if not query1xxxx..IsEmpty then //del;)


EXCEL.QUIT;
EXCEL := UNASSIGNED;

程式碼如上
我把excel開啟以後...
程式執行到"EXCEL.QUIT; "照理說會把它關閉
怎麼我到工作管理員下的處裡程序那邊去看，發現excel並未關閉..
我該如何讓excel關閉..

有一種可能是當你在Delphi執行(Run)程式的時候發生了錯誤
一般的狀況下
我們會將程式停止(關掉, Program Reset)
這時候工作管理員的Excel是還在的
因為是不正常停止

您可以試試~
先檢查工作管理員中無Excel
然後再來執行您的程式
假如您的程式是完全沒有問題的
那麼在EXCEL.QUIT之後
照理說工作管理員中也不會有Excel的

嗯...小小意見,供參考~

===================引 用 qq33252000 文 章===================
TRY
EXCEL := CreateOLEObject('EXCEL.APPLICATION');
EXCEL.WORKBOOKS.OPEN(TRIM(WFILE.Text));
EXCEPT
RAISE EXCEPTION.Create('無法啟動EXCEL');
EXIT;
END;
s:= StrToInt(VarToStr(EXCEL.WORKBOOKS[1].WORKSHEETS[1].EVALUATE('=COUNTIF($A:$A,"<>")')));
y:= StrToInt(VarToStr(EXCEL.WORKBOOKS[1].WORKSHEETS[1].EVALUATE('=COUNTIF($1:$1,"<>")')));

//....(if not query1xxxx..IsEmpty then//del;)


EXCEL.QUIT;
EXCEL := UNASSIGNED;

程式碼如上
我把excel開啟以後...
程式執行到"EXCEL.QUIT;"照理說會把它關閉
怎麼我到工作管理員下的處裡程序那邊去看，發現excel並未關閉..
我該如何讓excel關閉..

在DALPHI執行(RUN)的時候，程式為跳出錯誤訊框
請問有沒有可能程式出錯~!但卻沒有跳出錯誤訊框的可能下
工作管理員的EXCEL還是在呢??

倘若有這樣的情況下~我從哪下手去找出錯誤點呢??
(因為現在就是沒有錯誤訊框，程式都正常執行，可是就是不會關起來~!挺奇怪的...才會上網發問)

===================引 用 老大仔 文 章===================
有一種可能是當你在Delphi執行(Run)程式的時候發生了錯誤
一般的狀況下
我們會將程式停止(關掉, Program Reset)
這時候工作管理員的Excel是還在的
因為是不正常停止

您可以試試~
先檢查工作管理員中無Excel
然後再來執行您的程式
假如您的程式是完全沒有問題的
那麼在EXCEL.QUIT之後
照理說工作管理員中也不會有Excel的

嗯...小小意見,供參考~

===================引 用 qq33252000 文 章===================
TRY
EXCEL := CreateOLEObject('EXCEL.APPLICATION');
EXCEL.WORKBOOKS.OPEN(TRIM(WFILE.Text));
EXCEPT
RAISE EXCEPTION.Create('無法啟動EXCEL');
EXIT;
END;
s:= StrToInt(VarToStr(EXCEL.WORKBOOKS[1].WORKSHEETS[1].EVALUATE('=COUNTIF($A:$A,"<>")')));
y:= StrToInt(VarToStr(EXCEL.WORKBOOKS[1].WORKSHEETS[1].EVALUATE('=COUNTIF($1:$1,"<>")')));

//....(if not query1xxxx..IsEmpty then//del;)


EXCEL.QUIT;
EXCEL := UNASSIGNED;

程式碼如上
我把excel開啟以後...
程式執行到"EXCEL.QUIT;"照理說會把它關閉
怎麼我到工作管理員下的處裡程序那邊去看，發現excel並未關閉..
我該如何讓excel關閉..

建議您把比較完整的CODE放上來
讓大家幫您看看哪裡有問題
要不然這樣很難知道問題到底在哪裡@@

===================引 用 qq33252000 文 章===================
在DALPHI執行(RUN)的時候，程式為跳出錯誤訊框
請問有沒有可能程式出錯~!但卻沒有跳出錯誤訊框的可能下
工作管理員的EXCEL還是在呢??

倘若有這樣的情況下~我從哪下手去找出錯誤點呢??
(因為現在就是沒有錯誤訊框，程式都正常執行，可是就是不會關起來~!挺奇怪的...才會上網發問)

===================引 用 老大仔 文 章===================
有一種可能是當你在Delphi執行(Run)程式的時候發生了錯誤
一般的狀況下
我們會將程式停止(關掉, Program Reset)
這時候工作管理員的Excel是還在的
因為是不正常停止

您可以試試~
先檢查工作管理員中無Excel
然後再來執行您的程式
假如您的程式是完全沒有問題的
那麼在EXCEL.QUIT之後
照理說工作管理員中也不會有Excel的

嗯...小小意見,供參考~

你的問題我遇過:答案很簡單

一般程式 先開啟 你的 excel 檔案 , 如果程式只關了 你的 excel 檔案 , 沒有關 excel . 就會發生你說的情況.

( delphi & 有一篇範例涵蓋面非常完整 . ( 起碼少了我50%時間 try )

http://www.winu.cn/space-14160-do-blog-id-11777.html 參考這個網址 , 對你 Excel 操作有幫助.

PS : 以前 此網站 也有 , 一時找不到 , 多包涵 .

PS : EXCEL := CreateOLEObject('EXCEL.APPLICATION'); // 我的記憶 : 這行的對應 close 指令 沒執行 .

編輯記錄

這是一種範例，你可以試試看!!!

[code delphi]
請在此區域輸入程式碼
uses Excel2000
try
Book, MsExcel, new_Sheet : Variant;
EXCEL := CreateOleObject('Excel.Application');
EXCEL .Visible := True;
EXCEL .Caption := 'Excel_Test';
EXCEL .WorkBooks.add;
EXCEL .WorkBooks[1].worksheets[1].name:='NewSheet';
new_Sheet := MsExcel.WorkBooks[1].worksheets[1];
new_Sheet.range['A1'] := 'Begin';
new_Sheet.range['A2'] := 'End';
new_Sheet.Cells.EntireColumn.AutoFit;
except
Book.Close[False];
EXCEL.Application.Quit;
MessageDlg('Can''t Open Excel!!', mtInformation, [mbok], 0);
end; //end except
[/code]

編輯記錄

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.