delphi 中打开 excel 表后可以正确操作,关闭后不能再连接!!!!!!!!!!!!!

[zhyyqq]

详细描述:
1、用三个控件TExcelWorksheet，TExcelWorkbook，TExcelApplication；
2、打开ExcelApplication1.Connect;
ExcelApplication1.Workbooks.Open('d:\demo.xls',null,...,null,0);
3、连接ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks[1]);
ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Sheets[1] as _WorkSheet);
4、操作......
5、保存ExcelWorkbook1.Save;
6、退出 ExcelWorkbook1.Close;
ExcelApplication1.Quit;
ExcelApplication1.Disconnect;
ExcelApplication1.Free;
ExcelWorkbook1.Free;
ExcelWorksheet1.Free;

以上的操作放在一个函数中，第一次调用没有问题，应用程序不退出的情况下也能打开d:\demo.xls文件；

但第二次调用该函数时，ExcelApplication1.Connect有except产生；所以我怀疑是函数退出的时候没有完全释放excel应用；

请给予帮助！！！

我感觉delphi的帮助做的太差，很多东西都查不到！！！！