ник: Анатолий (Киев)
1. У вас RecSet перед началом экспорта находится на 1-й записи? В нем точно более 800 записей?
2. Послк выполнения экспорта RecSet.EOF = True? Если нет, то какое значение у AbsolutePosition?
Метод CopyFromRecordset позволяет сопировать указанное кол-во записей.
Попробуйте выполнять экспорт порциями, например так:
With xlBook.Worksheets(1).Range("A2")
Do Until RecSet.EOF
.Offset(i).CopyFromRecordset RecSet, 700
i = i + 700
Loop
End With
|