前几天问过这个问题，很多朋友给了我回答。本以为解决了。但现在新问题又来了。

代码如下：

  ...

  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对象?

 

 

 

解答:

 

      workbook没有释放

其实不用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;