Redim Array while using function to fill it

[Spurious]

Hello,

I got the following code:

jData() = ReadISINs(HTMLDoc.body.innerHTML)

The array in my function ReadISINs is filled, but now I cant get jData filled because I need to redim it first.
Given that I dont know how big it should be, how can I tell him to be the same size as ReadISINs array?

Thanks in advance!

 

[MrKowz]

Try:

ReDim jData(LBound(ReadISINs) To UBound(ReadISINs))

 

[Spurious]

How would that work?
Where should I put it?

 

[Norie]

How have you initially declared jData?

You might not need to redim it if you didn't set it's dimensions when you declared it.

This simple test worked for me:

Option Explicit
 
Function ReadISINS()
    ReadISINS = Array(1, 2, 3, 4, 5)
    
End Function
 
Sub Test()
Dim jData()
 
    jData() = ReadISINS
    
End Sub

 

[Spurious]

I am an idiot!

forgot brackets when I dimed it.

 

[MrKowz]

How would that work?
Where should I put it?

Put it right above the line in your original post:

ReDim jData(LBound(ReadISINs) To UBound(ReadISINs))
jData = ReadISINs(HTMLDoc.body.innerHTML)

 

[Norie]

spurious

Not sure who your answer was for but have you checked how jData is declared - it might make a difference.

 

[Spurious]

spurious

Not sure who your answer was for but have you checked how jData is declared - it might make a difference.

Yeah, I declared it wrong.

Got another problem:

How do I make this work?

    jData() = ReadISINs(HTMLDoc.body.innerHTML)
    If Not IsError(UBound(jData)) Then
        Debug.Print jCount, UBound(jData)
        Call WriteISINData(jData(), jS)
    Else
        Debug.Print jCount, "ERROR"
    End If

After a while my arrays are empty and I want to stop the script then.