Excel и Delphi

← →
Евг (2005-01-24 10:44) [0]

Здрасти!

GetDir(0,path);
XL:= GetActiveOleObject("Excel.Application");
XL.DisplayAlerts := false;
XL.Visible:=false;
XL.WorkBooks.Open(path + "\report\Форма2.xls");
XL.Worksheets[1].activate;

подобным образом цепляюсь к екскел из делфи.
вопрос: как мне разорвать соединение с екскел и закрыть екскел
XL.QUIT-закрывает книгу но не закрывает сам екскел, а мне надо закрыть екскелЗдрасти!

GetDir(0,path);
XL:= GetActiveOleObject("Excel.Application");
XL.DisplayAlerts := false;
XL.Visible:=false;
XL.WorkBooks.Open(path + "\report\Форма2.xls");
XL.Worksheets[1].activate;

подобным образом цепляюсь к екскел из делфи.
вопрос: как мне разорвать соединение с екскел и закрыть екскел
XL.QUIT-закрывает книгу но не закрывает сам екскел, а мне надо закрыть екскелЗдрасти!

GetDir(0,path);
XL:= GetActiveOleObject("Excel.Application");
XL.DisplayAlerts := false;
XL.Visible:=false;
XL.WorkBooks.Open(path + "\report\Форма2.xls");
XL.Worksheets[1].activate;

подобным образом цепляюсь к екскел из делфи.
вопрос: как мне разорвать соединение с екскел и закрыть екскел
XL.QUIT-закрывает книгу но не закрывает сам екскел, а мне надо закрыть екскел

← →
Style © (2005-01-24 10:56) [1]

ExcelApplication.Quit;
ExcelApplication := 0;

← →
Ega23 © (2005-01-24 11:24) [2]

твой вопрос я бы задал так:
for i:=1 to 3 do begin Здрасти! GetDir(0,path); XL:= GetActiveOleObject("Excel.Application"); XL.DisplayAlerts := false; XL.Visible:=false; XL.WorkBooks.Open(path + "\report\Форма2.xls"); XL.Worksheets[1].activate; подобным образом цепляюсь к екскел из делфи. вопрос: как мне разорвать соединение с екскел и закрыть екскел XL.QUIT-закрывает книгу но не закрывает сам екскел, а мне надо закрыть екскел end;

← →
Style © (2005-01-24 11:27) [3]

> Ega23 © (24.01.05 11:24) [2]

for i:=1 to 3 do begin ExcelApplication.Quit; ExcelApplication := 0; end;

:)))))

XL.Quit;
XL.Unassigned;

обе строчки надо написать в таком же порядке

блин, XL:=Unassigned будет правильней

Excel и Delphi Найти похожие ветки