Excel VBA - string param pass from excel but not from VBA

Question

I have DLL function which has two string parameters and two int parameters. The function returns a string. When I call the function directly from excel, it is OK, but when I call the function from VBA, to DLL function is pass string params, which is not corresponding with original (nonsense characters). And function return string, witch have every seconds char " ".

My dll function looks like this:

BSTR __stdcall getPattern(int sex, int pad, BSTR * a, BSTR * b){
    ...
}

Declare function in VBA:

Declare Function GetPattern _
Lib "myPathToFunction" Alias "GetPattern" (ByVal poh As Integer, ByVal pad As Integer, ByRef a As String, ByRef b As String) As String

In excel I call the function like this: (And it is OK)

=GetPattern(I5;C1;A1;B1)

And from VBA call function like this: (and it return only first char of string)

result = GetPattern(Range("I5").Value, Range("C1").Value, Cells(i, 1).Value, Cells(i, 2).Value)

Comintern · Accepted Answer · 2015-04-17 12:34:29Z

0

This could be an issue with VB converting strings to ANSI on C calls. You may need to explicitly pass a string pointer:

Dim param_a As String
Dim param_b As String

param_a = Cells(i, 1).Value
param_b = Cells(i, 2).Value
result = GetPattern(Range("I5").Value, Range("C1").Value, _
                    StrPtr(param_a), StrPtr(param_b))

answered Apr 17, 2015 at 12:34

Comintern

22.3k6 gold badges36 silver badges83 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

Martin Janoušek Over a year ago

This get same result.

Collectives™ on Stack Overflow

Excel VBA - string param pass from excel but not from VBA

1 Answer 1

1 Comment

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

1 Comment

Your Answer

Sign up or log in

Post as a guest

Related