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

正如问题所说.我希望能够在一些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中字符串数组中的下一个元素.

解决方法:

当您在声明的函数中将arr()声明为字符串时,VB将发出由BSTR(FADF_BSTR | FADF_HAVEVARTYPE)组成的LPSAFEARRAY *(双指针,SAFEARRAY **).也就是说,conversion to LPSTR将不会执行.

在C端,您将参数声明为LPSAFEARRAY *并使用SafeArray* family of functions来操纵数据.

请注意,如果您要更换它们,您有责任释放您要替换的BSTR.

您将从LPSAFEARRAY获得有关阵列大小和尺寸的所有信息,并且每个BSTR存储其字符串长度.

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

如果你只使用没有固定长度的字符串,你也可以像传递指针一样传递它们：

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.您需要将元素数量作为单独的参数传递,以了解有多少字符串.

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

标签：c,excel,vba,excel-vba,dll
来源： https://codeday.me/bug/20191007/1868095.html