前几天问过这个问题,很多朋友给了我回答。本以为解决了。但现在新问题又来了。
代码如下:
...
ExcelApp,workbook: Variant;
...
ExcelApp:=CreateOleObject('Excel.Application');
workbook:=CreateOleObject('Excel.sheet');
上次大家给我的代码是:
workbook.close;
ExcelApp.quit;
workbook:=unassigned;
excelapp:=unassigned;
这些代码放在窗口的onclose方法里没问题,当窗口释放后,EXCEL对象也会中内存中清出。但我如果把这些代
码放在其他地方,比如按钮的onclick里,就不行了,点了按钮后,EXCEL对象还是驻留在内存里。我的程序的功能是把excel表中的数据导入到access里。我的想法是导入完一个excel表后,先把excel对象释放,然后可以继续选另一个要导入的excel表。我把释放的代码放在导入按钮里。但结果是,导入数据后,excel对象不能释放。再选其他excel表,再按导入键,就会出错。
请问应该怎样才能通过单击按钮释放excel对象?
代码如下:
...
ExcelApp,workbook: Variant;
...
ExcelApp:=CreateOleObject('Excel.Application');
workbook:=CreateOleObject('Excel.sheet');
上次大家给我的代码是:
workbook.close;
ExcelApp.quit;
workbook:=unassigned;
excelapp:=unassigned;
这些代码放在窗口的onclose方法里没问题,当窗口释放后,EXCEL对象也会中内存中清出。但我如果把这些代
码放在其他地方,比如按钮的onclick里,就不行了,点了按钮后,EXCEL对象还是驻留在内存里。我的程序的功能是把excel表中的数据导入到access里。我的想法是导入完一个excel表后,先把excel对象释放,然后可以继续选另一个要导入的excel表。我把释放的代码放在导入按钮里。但结果是,导入数据后,excel对象不能释放。再选其他excel表,再按导入键,就会出错。
请问应该怎样才能通过单击按钮释放excel对象?
解决方案 »
- 我在Dlephi中用ADO连接SQLServer一切正常,问题:有没有办法显示所连接数据库的创建日期?
- Access中存取BMP格式图片的问题
- SAPI5.1的基于Windows平台的,如何通过COM接口进行调用?
- 新手提问:有关TIMER的问题
- 难道真的没有人能够解决我的个问题????
- 各位大哥,我有个急手的DELPHI问题要请教各位高手
- 怎样给一个数据表的字段赋空值?
- 如何不让子窗口自动打开?
- 如何列出计算机中所有的串口.如装有moxa的串口服务器.请指教.谢谢
- 一个Delphi初学者的问题,送106高分!!!
- 急救,如何把array[1..199] of byte转换成string啊
- 求,读取另一窗体RichEdit20A内容
其实不用WorBook也行,如下:
Try
ExcelApp:= CreateOleObject( 'Excel.Application' );
ExcelApp.WorkBooks.Open(YourXlsFileName);//打开Excel文件
ExcelApp.WorkSheets[1].Activate;//设定第一个Sheet为活动的 ExcelApp.Cells[i,j].Value:=YourString;//向单元格中写数据
YourString:=ExcelApp.ActiveSheet.Cells.item[i,j]); //读取单元格. ExcelApp.ActiveSheet.PrintOut;//答应
ExcelApp.ActiveWorkBook.SaveAs(SavedFileName);//存盘
ExcelApp.Quit;
ExcelApp:=UnAssigned;
Except
Try //多用一个Try..Finally是防止在读写单元格过程中出错,退出时可能没有释放Excel,造成内存漏洞
ExcelApp.ActiveWorkBook.Saved := True;
ExcelApp.Quit;
Finally
ExcelApp:=UnAssigned;
End;
End;
ExcelApp:=CreateOleObject('Excel.Application');
...
finally
ExcelApp.quit;
excelapp:=unassigned;
end;我把以上代码块放在一个按钮里。我想执行完功能后,excel对象也清出内存,但不行。只有在整个程序退出时excel对象才会清出内存。我试着在窗口的onclose里写入:
ExcelApp.quit;
excelapp:=unassigned;
一执行就会出现错误,提示如下:'Variant does not refrence an automation object',好象excelapp变量已经是不指向excel对象了,但该对象还驻留在内存里。请指点,到底怎样才能将excel对象清出内存?