Wait ("Формирование локального курсора") Window 
Nowa
* Проверяем количество записей и если их больше, чем строк в екселе делаем разбивку на несколько листов,
* из которых склеим одну
Local nCountFiles As Long, nStart As Long, nEnd As Long
nCountFiles = Ceiling(m_proverka /  65535 ) && Вычисляем количество файлов
Dimension arrCountRow[nCountFiles]
*  If nCountFiles >  1  Then
Create Cursor curFiles(sPath m) && Курсор с путями и именами файлов
nStart =  1 
nEnd   =  65534 
For i =  1  To nCountFiles
 m_file_export= m_path_user+Sys( 2015 )+".xls"
 Select curFiles
 Append Blank
 Replace curFiles.sPath With m_file_export
 Select(m_alias)
 Go Top
 m_str = "Формирование локального курсора " + Alltrim(Str(i)) + " из " + Alltrim(Str(nCountFiles))
 Wait (m_str) Window Nowa
 col_count = Thisform.grid1.ColumnCount
 s = ""
 For j= 1  To col_count
  s1= (Thisform.grid1.Columns(j).ControlSource)&&получаем источник(поле) из курсора
  Do Case
*    Case Type(s1)==[D]&&если тип данных data
*     s = s + "Dtoc(" + (Thisform.grid1.Columns(j).ControlSource) + ") as " + 
Getwordnum(Alltrim((Thisform.grid1.Columns(j).ControlSource)),  2 , ".") + ", "&&получаем источник(поле) из курсора
  Case Type(s1)==[T]&&если тип данных datetime
   s = s + "Ttoc(" + (Thisform.grid1.Columns(j).ControlSource) + ") as " + 
Getwordnum(Alltrim((Thisform.grid1.Columns(j).ControlSource)),  2 , ".") + ", "&&получаем источник(поле) из курсора
  Case Type(s1)==[L]&&если тип данных logical
   s = s + "iif(&s1, 'Да', 'Нет') as " + s1 + ", "
  Otherwise
   s = s + (Thisform.grid1.Columns(j).ControlSource) + ", "&&получаем источник(поле) из курсора
  Endcase
 Endfor
 s = Substr(s,  1 , Len(s) -  2 )
 sSelect = "Select " + s + " From " + m_alias + " where Recno() >= nStart And Recno() < nEnd Into Cursor " + m_alias + 
"_1"
 &sSelect

* Получаем список полей, для импорта
 Select(m_alias+"_1")
 Afields(arrF)
 s = ""
 For j= 1  To col_count
  s = s + arrF(j,  1 ) + ", "
 Endfor
 s = Substr(s,  1 , Len(s) -  2 )


 m_str = "Вывод в Excel " + Alltrim(Str(i)) + " из " + Alltrim(Str(nCountFiles))
 Wait (m_str) Window Nowa
 Export To (m_file_export) Type Xl5 Fields &s

 arrCountRow(i) = Reccount()
 Use In Select(m_alias+"_1")
 nStart = nEnd +  1 
 nEnd   = nEnd +  65534 
Next i