Using Array returning function in VBA

Question

I am trying to define an array of object from a function but I always get the Compile error Can't assign to array.

Here is my code:

Dim param1 As String
Dim param2 As String
Dim my_legs(1 To 4) As MyObject_Obj

Set my_legs = legBuilder(param1,param2)


private Function legbuilder (ByVal param1 As String,ByVal param2 As String)As MyObject_Obj

Dim my_legs(1 To 4) As MyObject_Obj

---Filling my Array---

legBuilder = my_legs

End Function

It seems that my function is, by design not returning the expected type (an Array of MyObject_Obj)

Am I doing it wrong?

Is MyObject_Obj a custom type you created? Where is its declaration? — Thomas G
– Thomas G, Commented May 9, 2018 at 5:56
It is an object coming from my References. I actually simplified quite much on purpose here. My point is to know if I can use function(with parameters) to return an array of custom object. — Pclaverie
– Pclaverie, Commented May 9, 2018 at 6:16
Show the type declaration or there's no way to answer your question. "coming from references" is not the right answer. — Thomas G
– Thomas G, Commented May 9, 2018 at 6:27

Harassed Dad · Accepted Answer · 2018-05-09 13:47:01Z

1

Public Function ReturnArray(param1,param2) as variant
Dim A(4) as variant
A(0) = "One"
A(1) = "Two"
A(2)= "Three"
A(3) = "Four"
ReturnArray = A()
End Function

Sub test()
 MsgBox ReturnArray("A", "B")(2)

 End Sub

answered May 9, 2018 at 13:47

Harassed Dad

4,7141 gold badge12 silver badges12 bronze badges

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

Comments

QHarr · Accepted Answer · 2018-05-09 06:06:00Z

0

Ignoring the rest, you can't do

Set my_legs = legbuilder(param1, param2)

Set is for objects. Your "custom" legbuilder is essentially returning an array ,so drop the Set.

answered May 9, 2018 at 6:06

QHarr

84.5k14 gold badges58 silver badges105 bronze badges

1 Comment

QHarr Over a year ago

A line like? As per @ThomasG's comment - where is the code governing the custom type you have created (MyObject_Obj). You are treating it as an array so you can't use the Set keyword. You declare things in the same way Dim x As type

JohnyL · Accepted Answer · 2018-05-09 15:53:30Z

0

private Function legbuilder (...) As MyObject_Obj()

answered May 9, 2018 at 15:53

JohnyL

7,1845 gold badges27 silver badges48 bronze badges

Collectives™ on Stack Overflow

Using Array returning function in VBA

3 Answers 3

Comments

1 Comment

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

3 Answers 3

Comments

1 Comment

Comments

Your Answer

Sign up or log in

Post as a guest

Related