c++ - 如何在 VBA/Excel 中创建一个字符串数组并将其发送到 C++ DLL 以便它可以在 DLL 中迭代

Question

正如问题所说。我希望能够在一些 VBA 代码中制作一个字符串数组，在这段代码中我想让它们具有一定的长度。那么我将如何将它们传递到 C++ DLL 中，在 DLL 中我想在每个元素中存储一个字符串并使这些元素可以从 VBA afterwords 访问。我已经为单个字符串和 double 组完成了此操作，如下所示。

Dim myStr As String * sizeConst

Dim dataArray() As Double
ReDim dataArray(0 To (arrayLength - 1)) As Double

然后将它们从 VBA 中传递给 DLL。

Public Declare Function myFunc _
Lib "PathToDLL.dll" _
(myStr As String, ByVal sizeConst As Integer, dataArray As Double, ByVal arrayLength As Long) As Long

然后在 DLL 中，我可以单步执行 double 组中的每个元素。但是我不知道如何为字符串数组执行此操作。我不确定我将从 VBA 传入的字符串的实际内存大小，它们的大小是否为 sizeConst + 1？我需要知道这一点才能知道我应该增加多少才能到达下一个字符串元素。有人可以告诉我如何在 VBA 中声明一个字符串数组，每个元素的长度都是恒定的。然后如何将该数组传递给 DLL 以及如何递增到 DLL 中字符串数组中的下一个元素。

Answer 1

当您在Declared 函数中将arr() 声明为字符串 时，VB 将发出一个LPSAFEARRAY*(一个双指针， SAFEARRAY**) 由 BSTR ( FADF_BSTR | FADF_HAVEVARTYPE ) 组成。即conversion to LPSTR不会执行。

在 C++ 方面，您可以将参数声明为 LPSAFEARRAY* 并使用 SafeArray* family of functions 来操作数据。

请注意，如果要替换它们，您有责任释放要替换的 BSTR。

您将从 LPSAFEARRAY 中获取有关数组大小和维度的所有信息，并且每个 BSTR 都存储其字符串长度。

---

当您将 arr() 声明为 string * some_length 时会发生同样的情况，但这次 SAFEARRAY 将仅为 FADF_HAVEVARTYPE，并且为 SafeArrayGetVartype将返回 VT_ERROR 。安全数组的每个元素都是预先分配的 some_length 宽字符(some_length * 2 字节)的 blob，没有单独存储的零终止符或字符串长度。可以说它更容易使用，因为它是预先分配的，您可以简单地填充每个元素的现有内存。

---

如果您只使用字符串，没有固定长度，您也可以像将指针传递给 double 一样传递它们:

declare function myFunc ... (byval strings as longptr, byval count as long)

dim s() as string
redim s(1 to 5)

myFunc varptr(s(lbound(s))), ubound(s) - lbound(s) + 1

然后在 C++ 端，您将收到第一个字符串的 BSTR*，并且要前进到下一个字符串，您将像往常一样向其添加 1与指针数学。您需要将元素的数量作为单独的参数传递，以了解有多少个字符串。

这不适用于固定长度的字符串。