全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1404
推到 Plurk!
推到 Facebook!

使用tExcelApplication調用Excel以後,資源不能完全被釋放,求助

尚未結案
jeffen
一般會員


發表:7
回覆:2
積分:1
註冊:2003-10-14

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-11-23 23:42:09 IP:218.66.xxx.xxx 未訂閱
我使用tExcelApplication、tExcelWookbook、tExcelSheets控制項進行編程控制excel文檔,都可以成功,但是處理完後excel文檔總是不能完全被釋放(查看系統進程中Excel.exe一直存在)不知道什麼原因,附代碼,望高手指教。 try { ExcelApplication1->Connect(); } catch (...) { Application->MessageBox("無法啟動Excel,請檢查Excel是否安裝!","警告",MB_OK MB_ICONWARNING); } num = 0; ExcelApplication1->Workbooks->Add(TNoParam(),num); num = 1; ExcelWorkbook1->ConnectTo(ExcelApplication1->Workbooks->get_Item(num)); ExcelWorksheet1->ConnectTo(ExcelWorkbook1->Worksheets->get_Item(num)); …… …… …… ExcelWorkbook1->SaveCopyAs(filename); //Quit Excel Application ExcelWorksheet1->Cells->Clear(); boolValue = false; ExcelWorksheet1->Disconnect() ; ExcelWorkbook1->Close(boolValue); ExcelWorkbook1->Disconnect(); ExcelApplication1->Quit(); ExcelApplication1->Disconnect(); 皆为我师
------
皆为我师
mkbobo
一般會員


發表:4
回覆:68
積分:19
註冊:2003-04-10

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-12-04 17:56:25 IP:61.222.xxx.xxx 未訂閱
我不知道為何你的程式關不掉 但是我想到一個笨方法 利用FindWindow(找到Excel.exe)還有 SendMessage(送出關掉的命令WM_CLOSE,WM_DESTROY或WM_QUIT) 這兩個API     當然如果你的excel.exe 是卡在某個無限迴圈收不到message 應該就關不掉 不然應該可以關掉 你試看看吧  希望對你有幫助^^
系統時間:2024-05-19 16:36:47
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!