script work too slow..

[jovik2003]

good day!
Help me please.

I have web page with big table (about 550 rows and 17 columns).
I want to put "inner text" of all cells of certain colum to DataTable.

At first I try to use this structure:

Code:

...
rn=1
For i = 2 To oWebTable.RowCount
    DataTable.SetCurrentRow(rn)
    DataTable.Value("A")=oWebTable.GetCellData(i,1)
    rn=rn+1
Next

it's work tooooooo slow

then, I made function

Code:

Public Function getCellVal(byRef table, byRef col)

    set oTable = table.Object
    rn=1
    col = col-1

    For i=1 to table.rowcount-1
        set curCell=oTable.rows(i).cells(col)
        DataTable.SetCurrentRow(rn)
        
        DataTable.Value("A")=curCell.innertext
        
        rn=rn+1
        Next

End Function

It works about 5 minutes.
How can I force it to work faster?
..or, 5 minutes - it's normal time for QTP?

Thanks!