Borland Delphi 7 TExcelApplication.Connect 适用于办公机器，但不适用于客户端

Question

由于其局限性，我负责在我的办公室（Pascal）维护一些遗留代码，我编写了一个 delphi dll 来使用 TExcelApplication 访问 excel。

该 dll 在办公室完美运行，机器运行 Microsoft Office 2010、Windows 7 32 位和 64 位。客户端使用Novel Workstations、Windows XP、Microsoft 2007。dll

在遇到TExcelApplication.Connect时给出断点异常；命令。

除了我提到的差异之外，场景完全相同。

在 Novel Workstation 上访问 Microsoft Excel 是否有任何限制，或者是否有更好的方法来访问 Excel 文档？

注意：我只想读取Excel文档，它跨越多个行、列和电子表格，源Excel文档是*.xls 2007文档。

它的主要功能是实现与 Excel 文档的自动核对。

这是库代码片段

library MyLibrary;
uses
  SysUtils, Classes, Variants, Dialogs, StdCtrls, OleServer, ExcelXP, Windows;
Type
  PString=String[254];

Var
  ExcelObj : TExcelApplication;

Procedure XLSOPEN(THENAME:PSTRING;VAR Reslt:PSTRING); stdcall;
Begin
  If FileExists(THENAME) Then
  Begin
    ExcelObj := TExcelApplication.Create(nil);
    ExcelObj.ConnectKind := ckRunningOrNew;
    ExcelObj.Connect;

    If ExcelObj=nil Then
    Begin
      Result := 'Error : EXCEL couldnt be started!';
      Exit;
    End Else
    Begin
      Result := 'Successful';
      Exit;
    End;
  End Else
  Begin
    Result := 'Error : File '+THENAME+' does not exist!';
    Exit;
  End;
End;

Exports XLSOPEN Name 'XLSOpen';

Begin
End.

Answer 1

您需要将 ActiveX 添加到您的使用列表中，并使用 CoInitialize(nil); 来初始化 ActiveX 组件。原因是因为Application->Initialize初始化了组件，现在它是一个dll，你必须在加载组件时手动初始化组件，并在卸载dll时使用UnCoInitizlise;。

USES ActiveX, Windows;

INITIALIZATION
  CoInitialize(nil);
FINALIZATION
  UnCoInitialize;