порядковая нумерация записей при экспорте

[netfrog]

Поднимая старый вопрос о экспорте в excel. Появилась необходимость нумеровать записи по порядку
Этот код выгружает записи.

Код: Выделить всё

Do Until rsObjWorkMap.EOF()
  For Cell = 1 To rsObjWorkMap.Fields.Count
  With objExcel.ActiveSheet
   .Cells(Row, Cell + 2) = rsObjWorkMap.Fields(Cell - 1).Value
    End With
   Next Cell
  Row = Row + 1
  rsObjWorkMap.MoveNext
  Loop

Хотел попользовать .AbsolutePosition рекордсета, но как-то не получилось. Да и надо иногда пропустив несколько строк и подняв новый рекордсет - продолжить нумерацию. Подскажите плз

[mvandrew]

А у тебя какая идентификация записей в выгружаемой таблице, в смысле какой тип у ключевой записи. Кинь мне пример с именами полей (2-3) и я тебе могу подсказать, поскульку делал такую фигню не раз. И потом, тебя не напрягает использование SQL-запросов при заполнении рекорсета? Если, да, то тогда есть какая классная штука - переменная с типом, например integer или long, а потом к ней по единичке прибавляешь... Хотя это можно сделать и запросом - одной строкой!

[mvandrew]

Прошу прощения... Не посмотрел твой код... Ты уже использовал самый примитивный метод, поэтому у тебя остается либо запрос, либо условие внитри твоего цикла, который ты привел в твоем примере.