With xlBook.Worksheets(1).Range("B4")
.CopyFromRecordset RecSet
'Пишем 1 в А4
.Offset(, -1).Formula = "1"
'Пишем "=А4+1" в А5
.Offset(1, -1).FormulaR1C1 = "=R[-1]C+1"
'Копируем А5 в А6:Аx, где х - число записей в источнике минус 2.
.Offset(1, -1).Copy .Offset(2, -1).Resize(RecSet.RecordCount - 2)
End With
|