ник: Анатолий (Киев)
CopyFromRecordset позволяет скопировать указанное кол-во записей, а также полей.
Попробуйте копировати порциями:
With xlBook.Worksheets(1).Range("A2")
.CopyFromRecordset RecSet, 10
.CopyFromRecordset RecSet, 10
...
End With
Другой вариант - сделать МЕМО поле последним в RecSet (например - 10-м), если обычный вызов метода вылетает с ошибкой - выполнить его снова, но ограничив количество полей:
.CopyFromRecordset RecSet, , 9
Затем вернуться в начало RecSet и в цикле всавить значения из МЕМО прямо в ячейки.