正如问题所说.我希望能够在一些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
本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享； 2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关； 3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关； 4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除； 5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。