| |
|
|
| | Здравствуйте!
Экспортирую текущий результат листбокса вот этим кодом:
Private Sub list_export_button_Click() 'eksport tekushego rezul'tata spiska v excel
Dim myQuery, K
Dim myDB As Database
Set myDB = CurrentDb
myQuery = "current_list_export"
If Me.list_count_label.Caption = "0" Then
MsgBox ("There Is No Records")
Else
On Error GoTo K
myDB.CreateQueryDef myQuery, records_list.RowSource
DoCmd.OutputTo acOutputQuery, myQuery, acFormatXLS, , True
DoCmd.DeleteObject acQuery, myQuery
Set myDB = Nothing
K: DoCmd.DeleteObject acQuery, myQuery
End If
End Sub
|
Все было нормально, но с недавних пор он перестал экспортировать.
Вываливает ошибку "Число выводимых строк превышает предельное число, допустимое для указанного выходного формата ..." , хотя в листе 17 000 строк.
А если экспортировать 12 000, то успешно.
В чем проблема?
Кстати сам файл сохраняется в формате Microsoft Excel 5-7 почему то.
Может стоит указать выходной формат точнее? Но как и где?
Спасибо! | |
| |
| |
| |
|
|
| | Сколько не пытался из под VBA через DoCmd.OutputTo вывести в формате Excel 2003 ни разу не получилось
самое интересное что макрос выводит на ура
попробуйте через (только хелп почитайте)
DoCmd.TransferDatabase
или
DoCmd.TransferSpreadsheet
добавлено
может сделать макрос
а потом из под кода RunMacro | |
| |
| |
| |
|
|
| | дает еще и
одновременно выделено больше записей, чем допускается копировать в буфер обмена | |
| |
| |
| |
|
|
| | Я тут выяснил, что в Excel 7.0 версии максимальное количество строк равняется 16 384. Теперь понятно почему не экспортируется. Осталось указать версию аут файла в нужном месте. | |
| |
| |
