Question

正如问题所说。我希望能够在一些VBA代码中创建一个字符串数组，在这段代码中我想让它们具有一定的长度。然后我将如何将它们传递给C ++ DLL，在DLL中我想在每个元素中存储一个字符串，并使这些元素可以从VBA后面访问。我已经为一个字符串做了这个，对于一个双数组我已经这样做了。

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

Answer 1

当您在arr() as string d函数中声明Declare时，VB将发送一个由LPSAFEARRAY*组成的SAFEARRAY**（双指针，BSTR）（FADF_BSTR | FADF_HAVEVARTYPE）。也就是说，conversion to LPSTR将不会被执行。

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

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

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

当您声明arr() as 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添加到它。您需要将元素数量作为单独的参数传递，以了解有多少字符串。

这对固定长度的字符串不起作用。

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

1 个答案: