delphi中关闭Excel ( 积分: 5 )

el, wb: variant;

try
el:= CreateOleObject('Excel.Application');
wb:= CreateOleObject('Excel.Sheet');
Except
Application.MessageBox('你的机器没有安装Microsoft Excel',
'使用Microsoft Excel', MB_OK+MB_ICONWarning);

Exit;
End;
el.visible:= false;
wb:= el.workBooks.open(ExtractFilePath(application.ExeName)+DeviceFileName);
怎样关闭wb打开的Excel表

el, wb: variant;

try
el:= CreateOleObject('Excel.Application');
wb:= CreateOleObject('Excel.Sheet');
Except
Application.MessageBox('你的机器没有安装Microsoft Excel',
'使用Microsoft Excel', MB_OK+MB_ICONWarning);

Exit;
End;
el.visible:= false;
wb:= el.workBooks.open(ExtractFilePath(application.ExeName)+DeviceFileName);
怎样关闭wb打开的Excel表

el.WorkBooks.Close;
el.close;
最好不要这么用，弄不好经常会出现excel无法关闭，你可以用winexec什么的调用要不然就用ado操作excel

应该这样：
wb.close;
el.quit;
因为定义的wb是工作簿对象，如果你改动了Excel文件，关闭的时候还要提示你，所以，如果不想让对话框出现，可以在前面加一句：wb.saved:=true，其实在定义了el:= CreateOleObject('Excel.Application');之后，可以直接使用wb:= el.workBooks.open(ExtractFilePath(application.ExeName)+DeviceFileName);