Коллеги, подмогните разобраться с такой проблемкой с QTP.
Есть достаточно большая таблица (550 строк, 17 столбцов).
Хочу вывести в DataTable содержимое каждой ячейки определенного столбца.
Изначально пробовал конструкцию вида:
... rn=1 For i = 2 To oWebTable.RowCount DataTable.SetCurrentRow(rn) DataTable.Value("A")=oWebTable.GetCellData(i,1) rn=rn+1 Nextработает ну ооооочень медленно..
Далее, насочинял функцию:
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
Время обработки столбца таблицы (545 строк) ~ 5 минут.
Вопрос - возможно сделать быстрее или это нормальное время для QTP?