ник: khvostatyy
Здравствуйте!
Экспортирую текущий результат листбокса вот этим кодом:
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 почему то.
Может стоит указать выходной формат точнее? Но как и где?
Спасибо!