在Delphi 7中使用TExcelWorkBook SaveAs方法时出现Ole 800A03EC错误

前端之家收集整理的这篇文章主要介绍了在Delphi 7中使用TExcelWorkBook SaveAs方法时出现Ole 800A03EC错误前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
我正在尝试打开excel 2003工作簿并将其保存为其他内容,例如excel 95.
我使用以下代码
XLSApp:=TExcelApplication.Create(Self);
XLSApp.Workbooks.Open(SomeFileName,NULL,false,defaultlcid);
XLSWB:=TExcelWorkbook.Create(XLSApp);
XLSWB.ConnectTo(XLSApp.Workbooks.Item[1]);
XLSWB.SaveCopyAs(ExtractFilePath(edTable.Text)+'temp.xls');
XLSWB.SaveAs(SomeOtherFileName,xlExcel7,EmptyParam,False,xlNoChange,xlUserResolution,DefaultLCID);

不幸的是,这段代码在客户端计算机上提供了“Ole 800A03EC”,而它在我的计算机上运行.请注意,我安装了Office 2007,并且他有Office 2003 SP3.

任何帮助将非常感谢.

解决方法

我在Excel自动化时看到过这个错误.当用户在editmode中有一个单元格并且您尝试自动化该实例时,就会发生这种情况.当您编辑单元格并且某些程序在后台摆弄时,Excel不喜欢它.

所以这就是你的客户正在发生的事情(我认为):

>您的客户已打开Excel并且是
编辑单元格(选择单元格和
按F2)
>您的代码开始:

>您创建TExcelApplication并访问Workbooks属性.由于您的Excel应用程序尚未连接,因此调用TOleServer.Connect(查看GetDefaultInterface的实现)
>由于默认的connectkind是ckRunningOrNew,因此TExcelApplication连接到正在运行的实例.
>因为客户端正在编辑单元格,所以Open方法会出错.

如何防止这种情况:将TExcelApplication的ConnectKind设置为ckNewInstance,这样您将始终在单独的Excel实例中工作.

猜你在找的Delphi相关文章