从EXCEL 导入记录后,如何释放?否则另外打开一个EXCEL文件得重启电脑. VCL组件开发及应用http://www.delphi2007.net/DelphiVCL/html/delphi_20061222180704179.html
从EXCEL 导入记录后,如何释放?否则另外打开一个EXCEL文件得重启电脑
谢了.
附代码:
MsExcel := CreateOleObject('Excel.Application');
WorkBook := MsExcel.Application;
filename:=trim(edit_filename.Text);
WorkBook.WorkBooks.Open(filename);
WorkBook.Visible := False;
WorkSheet:= WorkBook.ActiveSheet;
for i:=2 to WorkSheet.UsedRange.Rows.count do
begin
......
end;
执行完后,需要退出时
WorkBook.Quit;
使用完后直接ExcelOPen.Quit;就OK了 。如果有连接就先断开连接disconnectio然后再QUIT