Delphi中Excel的问题

xiaobudian125 2003-07-04 05:11:10

我用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);

不知错在那里，谢谢。

...全文

23 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

xiaobudian125 2003-07-07

打赏
举报

好了，解决了，谢谢。

netrobo 2003-07-04

打赏
举报

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

xiaobudian125 2003-07-04

打赏
举报

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

zhouxiaochenchina 2003-07-04

打赏
举报

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

things 2003-07-04