excel - 具有变体返回类型的 Delphi Excel UDF

Question

我有一个使用 ExecuteExcel4Macro 注册 UDF 的加载项。这工作正常。仅当加载项在当前 session 中检测到兼容的工作簿时，该加载项才会注册。

问题是我想更改当前的 UDF，使其不再只返回一个字符，而是返回一个字符或 excel 错误。

我找到了一些关于使用类型库的文章，但我相信这意味着我的 UDF 将始终被注册，并且我想控制何时注册它们。

我目前注册

ExcelApp.ExecuteExcel4Macro('REGISTER("filepath","add-in-name","AccountDescription","CC","Account Id","My Addin group")');

function AccountDescription ( sAccountId: PChar ) : PChar ; stdcall ;

我正在使用 add-in-express 来帮助实现 Excel 自动化。CC 指示该函数接受以 null 结尾的字符串，并期望返回以 null 结尾的字符串。我不确定是否可以指定一个变体，以便返回 Excel2000.xlErrNa。

编辑:修复了上面的函数调用，我忘记了 REGISTER。

编辑(2):register函数中的第4个参数包含udf参数和返回值类型。我不确定如何指示变体。

编辑(3):该 dll/项目称为 DynacViews2，在 DynacViews2.dll 源文件中有:

exports AccountDescription;

抱歉，如果这有点支离 splinter 。我想强调的是，这目前正在与上面的代码一起使用。问题是试图更改 AccountDescription 的签名以返回 OleVariant 而不是 PChar。

更改的原因是我想返回字符串或 Excel 错误。其他在线示例包括 add-in-express，显示使用 TypeLibrary 添加函数并将返回类型指定为变体。这将使用 OleVariant 创建签名，并且可以返回字符串或 Excel 错误 (Excel2000.xlErrNa)。问题是我使用 VBA REGISTER 函数仅在工作簿兼容的情况下添加 UDF。

我可能错误地解决了这个问题。

编辑4: Example of Register usage - 此链接显示寄存器用法，但不链接到任何 Microsoft 站点，因此没有说明如何指定参数。

Answer 1

根据Using the CALL and Register Functions , Variant 不属于支持的数据类型。

Code  Description                            Pass by               C Declaration
A     Logical (FALSE = 0), TRUE = 1)         Value                 short int
B     IEEE 8-byte floating-point number      Value (Windows)       double (Windows)
                                             Reference (Macintosh) double * (Macintosh)
C     Null-terminated string                 Reference             char *
      (maximum length=255)
D     Byte-counted string (first byte        Reference             Unsigned char *
      contains length of string, maximum 
      string length = 255 characters)
E     IEEE 8-byte floating-point number      Reference             double *
F     Null-terminated string (maximum        Reference (modify     char *
      string length = 255 characters)        in place)
G     Byte-counted string (first byte        Reference (modify
      contains length of string, maximum     in place)             unsigned char *
      string length = 255 characters)
H     Unsigned 2-byte integer                Value                 unsigned short int
I     Signed 2-byte integer                  Value                 short int
J     Signed 4-byte integer                  Value                 long int
K     Array                                  Reference             FP *
L     Logical (FALSE = 0, TRUE = 1)          Reference             short int *
M     Signed 2-byte integer                  Reference             short int *
N     Signed 4-byte integer                  Reference             long int *
O     Array                                  Reference             Three arguments are 
                                                                   passed:
                                                                   unsigned short int *
                                                                   unsigned short int *
                                                                   double [ ]
P     Microsoft Excel OPER data structure    Reference             OPER *
R     Microsoft Excel XLOPER data structure  Reference             XLOPER *