正如问题所说。我希望能够在一些 VBA 代码中制作一个字符串数组，在此代码中，我想使它们具有一定的长度。然后我将如何将它们传递到C++ 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 传入的字符串的实际内存大小，它们的大小是否为 Const + 1？我需要知道这一点才能知道我应该增加多少才能到达下一个字符串元素。有人可以告诉我如何在 VBA 中为每个元素声明一个长度恒定的字符串数组。然后，如何将该数组传递给 DLL 以及如何递增到 DLL 中字符串数组中的下一个元素。
当你在Declared函数中声明arr() as string时，VB将发出一个由BSTRs(FADF_BSTR | FADF_HAVEVARTYPE)组成的LPSAFEARRAY*(双指针，SAFEARRAY**)。也就是说，不会执行到LPSTR的转换。
在C++端，您可以将参数声明为LPSAFEARRAY*，并使用SafeArray*系列函数来操作数据。
请注意，如果您要替换它们，则负责释放要替换BSTR。
您将从LPSAFEARRAY获得有关数组大小和维度的所有信息，并且每个BSTR存储其字符串长度。
当您声明arr() as string * some_length时也会发生同样的情况，但这次SAFEARRAY将仅FADF_HAVEVARTYPE，SafeArrayGetVartype将返回VT_ERROR。安全数组的每个元素都是一个预分配的 blob，其中包含some_length个宽字符(some_length * 2个字节)，没有零终止符或字符串长度单独存储。可以说它更容易使用，因为它是预先分配的，您可以简单地填充每个元素的现有内存。
如果你只使用字符串，没有固定的长度，你也可以像传递指针到 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。您需要将元素数量作为单独的参数传递，以了解有多少字符串。
这不适用于固定长度的字符串。