Как правильно закрыть процесс Excel.exe
Как правильно закрыть процесс Excel.exe в Delphi когда работаешь с OLE-объектом Excel? Подскажите, а то способ с Excel.exit или Excel.quit не работают и после работы с несколькими файлами в диспетчере в процессах отображается с десяток процессов Excel.exe
Заранее спасибо)
Заранее спасибо)
Неа, не работает. Пишет следующее:
"Project MyProject.exe raised exception error EOLeError with message 'Method 'Close' not supported by automation object'. Process stopped. Use Step or Run to continue."
"Project MyProject.exe raised exception error EOLeError with message 'Method 'Close' not supported by automation object'. Process stopped. Use Step or Run to continue."
Выложи код.
Да и вообще пробуй Excel.Free, Excel.CloseCurrentDatabase и т.д. Я с OLE не работал, но ты справку почитай.
Пример пользования Access'ом:
[highlight=delphi]
const
acViewNormal = $00000000;
acViewDesign = $00000001;
acViewPreview = $00000002;
acQuitPrompt = $00000000;
acQuitSaveAll = $00000001;
acQuitSaveNone = $00000002;
var
Access: Variant;
begin
// Открываем Access
try
Access:=GetActiveOleObject('Access.Application');
except
Access:=CreateOleObject('Access.Application');
end;
Access.Visible := True;
Access.OpenCurrentDatabase('Payments.mdb', True);
Access.DoCmd.OpenReport('rDone', acViewPreview, EmptyParam, EmptyParam);
Access.CloseCurrentDatabase;
Access.Quit(acQuitSaveAll);
end;
[/highlight]
Да и вообще пробуй Excel.Free, Excel.CloseCurrentDatabase и т.д. Я с OLE не работал, но ты справку почитай.
Пример пользования Access'ом:
[highlight=delphi]
const
acViewNormal = $00000000;
acViewDesign = $00000001;
acViewPreview = $00000002;
acQuitPrompt = $00000000;
acQuitSaveAll = $00000001;
acQuitSaveNone = $00000002;
var
Access: Variant;
begin
// Открываем Access
try
Access:=GetActiveOleObject('Access.Application');
except
Access:=CreateOleObject('Access.Application');
end;
Access.Visible := True;
Access.OpenCurrentDatabase('Payments.mdb', True);
Access.DoCmd.OpenReport('rDone', acViewPreview, EmptyParam, EmptyParam);
Access.CloseCurrentDatabase;
Access.Quit(acQuitSaveAll);
end;
[/highlight]
Спасибо, проблема решена) Дело было в том, что проект многоформенный, и Excel открывался в каждой форме. Надо только один раз открывать и закрывать на главной форме. а закрывается Excel.Quit