在 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 实例中工作。

Answer 2

当一个人（比如我）做了一件愚蠢的事情，比如尝试加载到不存在的 Excel 单元格中时，也会出现 800A03EC，比如：

excel.Cells[rowIndex, ri] = x;
where ri is 0.

注意 BENE：col 索引从 1 开始，而不是 0。

Answer 3

就我而言（ xlExcel8 格式）：

而不是：

theWorkbookWyjscie.SaveAs(saveFileDialog1.FileName, myExcel.XlFileFormat.xlExcel8);

我使用：

theWorkbookWyjscie.SaveAs(saveFileDialog1.FileName);

或

theWorkbookWyjscie.SaveAs(saveFileDialog1.FileName, myExcel.XlFileFormat.xlExcel7);

两者都工作良好...是的，我知道这是一个愚蠢的解决方案，但它有效！

Answer 4

当尝试将太多数据存储到工作表（通过 Delphi）时，我收到该错误

Answer 5

OLE 800A03EC 通常与 Excel 文件中的无效字符有关。您使用的数据与您的客户相同吗？区域设置有区别吗？等等，这可能会有很多错误，但最有可能的是（正如快速谷歌告诉我的那样）这是一个区域设置。