How to use a string array returned from a function?

Question

I have a function that returns a string array

Function getAr() As String
Dim tmpAr(3) As String
getAr(0) = "Hallo"
getAr(1) = "I"
getAr(2) = "Am"
getAr(3) = "I"
getAr = tmpAr
End Function

In a Sub I want to reassign the returned string array like

Sub test()
Dim tmpAr() As String
ReDim tmpAr(UBound(getAr))
Debug.Print tmpAr(0)
Debug.Print tmpAr(1)
End Sub

The error is

assigning to data field is not possible.

I guess that is because I have to dimension the strAr to the same dimension as the myfunc arry. But I just do not get that information.

Could anyone help me here?

Rory · Accepted Answer · 2015-10-28 09:51:01Z

3

Your function and sub both need changing:

Function getAr() As String()
    Dim tmpAr(3)              As String
    tmpAr(0) = "Hallo"
    tmpAr(1) = "I"
    tmpAr(2) = "Am"
    tmpAr(3) = "I"
    getAr = tmpAr
End Function

Sub test()
    Dim tmpAr()               As String
    tmpAr = getAr
    Debug.Print tmpAr(0)
    Debug.Print tmpAr(1)
End Sub

answered Oct 28, 2015 at 9:51

Rory

34.2k5 gold badges40 silver badges42 bronze badges

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

1 Comment

ruedi Over a year ago

Did not know that tmpAr = getAr makes dimensioning of tmpAr redundant. Good to know! Thanks a lot!

R3uK · Accepted Answer · 2015-10-28 09:55:01Z

You don't need to know the dimension to assign an array, but your code wasn't correct.

Here is my amended version :

Function getAr() As String()

Dim tmpAr(3) As String

tmpAr(0) = "Hallo"
tmpAr(1) = "I"
tmpAr(2) = "Am"
tmpAr(3) = "I"

getAr = tmpAr
End Function

Notice the String(), this is how you declare the type of a function returning an array.

Also, you were dimensionning tmpAr and tried to affect values to getAr which wasn't set and as you started, it is much easier to work with a temp variable that you'll assign to the function's output at the end of the manipulations.

And your ReDim ReDim tmpAr(UBound(getAr)) was working but did not pass the array, this how you do it tmpAr = getAr and you don't even need to use ReDim before! ;)

Sub test()
Dim tmpAr() As String
tmpAr = getAr

Debug.Print tmpAr(0)
Debug.Print tmpAr(1)

End Sub

Collectives™ on Stack Overflow

How to use a string array returned from a function?

2 Answers 2

1 Comment

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

1 Comment

Comments

Your Answer

Sign up or log in

Post as a guest

Related