lcFileExcel='C:\temp\test.xls'


USE IN SELECT('cTest0')    
IF FILE(lcFileExcel)
    loExcel=CREATEOBJECT("EXCEL.APPLICATION")
    loExcel.Visible=.F.
    loExcel.EnableEvents=.T.    
    loExcel.DisplayAlerts=.F.

    loExcel.Workbooks.Open(lcFileExcel)
    lcWbName=JUSTFNAME(lcFileExcel)

    laData=loExcel.Workbooks(lcWbName).Sheets(1).UsedRange.Value                  
    
*      Код - Название
    
    SELECT 0  
      CREATE CURSOR cTest0 (lcode i, lname c(80))  
    APPEND FROM ARRAY laData              

    loExcel.Workbooks(lcWbName).Close(.F.)
    loExcel.Quit()

    IF USED('cTest0')  
          SELECT lcode, lname FROM cTest0 INTO CURSOR cTest READWRITE;  
                  WHERE RECNO()>1
    ENDIF   
    USE IN SELECT('cTest0')  
ENDIF