- Код: Выделить всё
If RecAccess.RecordCount <> 0 Then
RecAccess.MoveFirst
Do
k = 1
For Each fldLoop In RecAccess.Fields
Ex.ActiveSheet.Cells(j, k).Value = fldLoop.Value
k = k + 1
Next fldLoop
j = j + 1
RecAccess.MoveNext
Loop Until RecAccess.EOF
End If
Это часть кода экспорта. Как можно оптимизировать его для быстроты исполнения?