Code: Select all
...
For R = 1 To 2
For X = 1 To 16
VALORE = ElementHtml(T).rows(R).cells(X).innerText
ReDim Preserve ARRAYOP(X)
ARRAYOP(X) = VALORE
Next X
For I = 1 To UBound(ARRAYOP)
Debug.Print ARRAYOP(I)
Next I
Erase ARRAYOP
Next R
...
now after the first for next with X, i need to append into table ETA the value of array
example:
first item of array in filed 00-04, second item of array in filed 05-09... last item in in fiel >>74