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

Question

我正在尝试打开 Excel 2003 工作簿并将其另存为其他内容，例如 Excel 95。我使用以下代码:

XLSApp:=TExcelApplication.Create(Self);
XLSApp.Workbooks.Open(SomeFileName,NULL,false,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,defaultlcid);
XLSWB:=TExcelWorkbook.Create(XLSApp);
XLSWB.ConnectTo(XLSApp.Workbooks.Item[1]);
XLSWB.SaveCopyAs(ExtractFilePath(edTable.Text)+'temp.xls');
XLSWB.SaveAs(SomeOtherFileName,xlExcel7,EmptyParam,EmptyParam,False,False,xlNoChange,xlUserResolution,False,EmptyParam,EmptyParam,EmptyParam,DefaultLCID);

不幸的是，这段代码在客户端计算机上给出“Ole 800A03EC”，而它在我的计算机上运行。请注意，我安装了 Office 2007，他安装了 Office 2003 SP3。

任何帮助将不胜感激。

Answer 1

我在自动化 Excel 时曾经看到过此错误。当用户有一个单元格处于编辑模式并且您尝试自动化该实例时，就会发生这种情况。 Excel 不喜欢当您编辑单元格时某些程序在后台运行。

这就是您的客户所发生的情况(我认为):

• 您的客户已打开 Excel 并且正在编辑单元格(选择一个单元格并按F2)
• 您的代码开始:
  • 您创建一个 TExcelApplication 并访问 Workbooks 属性。由于您的 Excel 应用程序尚未连接，因此它会调用 TOleServer.Connect(查看 GetDefaultInterface 的实现)
  • 由于默认连接类型为 ckRunningOrNew，因此 TExcelApplication 连接到正在运行的实例。
  • 由于客户端正在编辑单元格，因此您会在 Open 方法中收到错误。

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