Delphi中Excel的问题

Question

我用Delphi中的Excel去打开一个指定路径的Excel文件时，第一次能成功打开，而以后就会失败。
程式如下：filename:='D:\test.xls';
ExcelApplication1.Connect ;
ExcelApplication1.Visible[0] :=True;
ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Open(filename,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,0)) ;
ExcelWorkSheet1.ConnectTo(ExcelWorkBook1.Activesheet as _Worksheet);
不知错在那里，谢谢。

Answer 1

用完后要释放
ExcelAppliction1.Disconnect;
ExcelAppliction1.Quit;

Answer 2

释放了也没有用的,除非你关闭程序,然后重新进入,
我给你个试试
ExcelWorkSheet1.Disconnect;
ExcelWorkBook1.Disconnect;
ExcelAppliction1.Disconnect;
ExcelAppliction1.Quit;
ExcelWorkSheet1.free;
ExcelWorkBook1.free;
ExcelAppliction1.Free;

Answer 3

可这样Excel会自动关闭的呀。

Answer 4

因该是资源没有释放....
不过连接EXCEL,我觉得还是用CreateOLEObject(Excel.Application)好....