怎么退出Excel?(100分)

  • 主题发起人 主题发起人 xcjp
  • 开始时间 开始时间
X

xcjp

Unregistered / Unconfirmed
GUEST, unregistred user!
var
xlApp:variant;
begin
xlApp:=CreateOleObject('Excel.Application');
.
.
.
xlApp.Quit;
xlApp:=unassinged;
end

i write these code above,bug Excel can't terminated,why?
my excel is Excel2000
 
xlApp.Quit;
xlApp:=unassinged; 这个可以不要了。
 
在xlApp.Quit之后加上xlApp.Disconnect;再試試看!
 
请说清楚点好吗?如果你是用delphi自带的控件可以这样:
ExcelApplication1.Quit;
ExcelWorksheet1.Disconnect;
ExcelWorkbook1.Disconnect;
ExcelApplication1.Disconnect;
 
xlApp.Disconnect;
xlApp.Quit;
error ;
xlApp.Quit;

 
您好!我也遇到了同样的问题,您的解决了?可否告诉告诉我如何解决!发到我邮箱里吧!
loveychb@163.com 谢谢!
 
我不明白,怎么可以看到你们回答问题的答案
 
ExlApp.Disconncet ;
ExlApp.Quit ;
 
ExcelWorksheet1.Disconnect;
ExcelWorkbook1.Disconnect;
ExcelApplication1.Disconnect;
ExcelApplication1.Quit;

 
if not VarIsEmpty(ExlApp) then
begin
ExlApp.ActiveWorkBook.Saved := True;
ExlApp.Workbooks.Close;
end;
如果加上ExlApp.quit,如果你打開其他的Excel文件,關閉時會一同關閉的.這段代碼我正在使用,沒問題的.
 
后退
顶部