А какой (даже не соображу как назвать) Вы используете? DAO 3.6 или ACEDAO 14.0 ?
Если б вы не подсветили, я бы и не знал. Было ACEDAO 14.0, заменил на DAO 3.6 и повторил код, предложенный выше. Результат тот же - не обрезается. Попробуйте и вы этот код для чистоты эксперимента.
1.
2.
3.
Dim XL As Object
Set XL = CreateObject("excel.application")
XL.Workbooks.Open FileName:=strPathFileXLS
Так что версия та же, что и у Access
Насчет версии, это так на 90%, но бывает всякое.
Насчет вашего кода:
XL.Workbooks.Open FileName:=strPathFileXLS
здесь вы создаете объект Workbook, но не присваиваете его отдельной переменной.
XL.Worksheets(1).Cells(13, 1).CopyFromRecordset rs
Здесь вместо XL надо бы объект Workbook, а у вас получается неявное использование метода
XL.
ActiveWorkBook. Worksheets(1)
Ваш вариант работает, но при доступе к Excel извне это неправильно и может привести к неуничтожению процесса Exce. Кстати, а как вы выполняете Save или SaveAs?
