关于delphi关闭excel(50分)

绯

绯红之王

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-21

• #1

var xlapp : variant
xlapp:=createoleobject('excel.application');
关闭时会用xlapp.quit
请问又没有函数直接判断xlapp是否已经quit了
以保证不会重复执行xlapp.quit

 

轻

轻舞肥羊

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-21

• #2

一般情况下应该这样写
var
xlapp : variant
begin
xlapp:=createoleobject('excel.application');
try
.......
finally
xlapp.quit
end;
end;
不要在finally之外的地方关闭xlapp

 

Z

zywcd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-21

• #3

你试试 if Assigned (xlapp) then xlapp.quit;

 

I

iseek

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-21

• #4

加try...except也行吧

 

W

wader

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-21

• #5

尝试关闭，如果已关闭就不处理
var
xlapp : variant
begin
xlapp:=createoleobject('excel.application');
try
xlapp.quit
finally
end;
end;

 

绯

绯红之王

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-21

• #6

try...except显然不行

 

Z

zywcd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-22

• #7

xlapp:=createoleobject('excel.application');
try
.......
finally
xlapp.quit;
xlapp:=Unassigned ;
end;

然后这样判断是不是已经退出。
if not VarIsEmpty(xlapp) then
begin
xlapp.quit;
xlapp:=Unassigned ;
end;

 

绯

绯红之王

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-24

• #8

多人接受答案了。