12-02-2012, 12:40 PM
Code:
iRowIndex = 0
Redim arAllData(iRowIndex)
While Browser("test").Page("page").Link("Next").Exist(1)
arr= FuncGetData() 'Getdata in page to the array
For i = 0 to ubound(arr)
Redim Preserve arAllData(iRowIndex)
arAllData(iRowIndex) = arr(i)
iRowIndex = iRowIndex + 1
Next
Browser("test").Page("page").Link("Next").Click
Wend