請教一下 當我 use excel97 var XLApp :variant; 然後 begin XLApp := CreateOleObject('Excel.Application') 呼叫excel... 抓cell資料寫入database.. 但是當程式執行完後...開啟工作管理員..發現有一程序excel無法free掉耶 用 XLApp.Quit; 也無法free掉耶 再執行一次... 又有一程序excel而成為2個excel程序.. 持續幾次..程式就因記憶體不足而掛了.. 該如何quit那程序呢

試試看 xlapp.disconnect;

使用了xlapp.disconnect 出現exception //**Method 'disconnect' not supported by automation object .***// 不支援自動化操作 //***** begin mHandle:=CreateMutex(nil,false,'RunOnce_Import'); if WaitForSingleObject(mHandle,INFINITE)=WAIT_OBJECT_0 then begin try Application.Initialize; s_path:=Paramstr(1); sql//****sql command...// XLApp := CreateOleObject('Excel.Application') 用cell抓資料寫入... finally if not VarIsEmpty(XLApp) then begin XLAPP.DisplayAlerts :=false; XLApp.Quit; end; end; ReleaseMutex(mHandle); Application.Run; end; 然後開啟工作管理員..程序excel無法free掉 再執行一次... 又有一程序excel而成為2個excel程序..