Lparameters XLSheet As Excel.Worksheet, dbf_file_name As String
Local dbf_file_name1 As String, XLApp As Excel.Application
Try
 XLApp = XLSheet.Application
** Получили Ексель и открыли книгу с данными, теперь читаем данные в курсор
* Определяем используемый диапазон в книге
 #Define xlCellTypeLastCell  11 
 r = XLSheet.cells.SpecialCells(xlCellTypeLastCell)
 If r.Column <  14  Then
* Если столбец последней используемой ячейки меньше или не равен столбцу O, значит наших данных нет
* Поэтому проверяем по последнему обязательному столбцу
  nRetVal =  0 
 Else
* Получаем нужный диапазон в массив
* Читать начинаем с третей строки
  v = XLSheet.Range("B3:N" + Transform(r.Row)).Value
* Создаем курсор в который переносим данные из массива
  dbf_file_name1 = Sys( 2015 )
  Create Cursor (dbf_file_name)(B v( 50 ), C B( 3 ), D B( 3 ), E B( 3 ), F B( 3 ), G B( 3 ), H B( 3 ), I B( 3 ), ;
   J B( 3 ), K B( 3 ), L B( 3 ), M B( 3 ), N B( 3 ))
  Append From Array v
  Release v
.....

This.ReadSheet(XLBook.Sheets("Лист1"), "cReadedData")