| |
|
|
| | A2003
Всем добрый день, при выгрузке в Excel возникла проблема: из почти двух тысяч строк выдаваемых при выполнении запроса в аксес в Excel выгружается около 800. В чем может быть проблема?
Выгружаю с помощью
Dim RecSet As DAO.Recordset
...
xlBook.Worksheets(1).Range("A2").CopyFromRecordset RecSet
...
В запросе поле, где может быть больше 255 символов, обрезаю лефтом до 255 | |
| |
| |
| |
|
|
| | 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
|
| |
| |
| |
| |
|
|
| | А можно весь код функции выгрузки в Excel посмотреть?  | |
| |
| |
