Local loexcel As Excel.Application, lnSheetCount,lcSheetName,lnPageNom
Local  oworkbook,isSucces,lnCurNom,lcCurAnswer

m.isSucces=.T.

Try   
	loexcel = Createobject('Excel.Application')
	oworkbook = loexcel.workbooks.Open(lcFileName)  && открываем книгу Эксел
     **      oworkbook.Visible=.t.

	oworkbook.sheets(m.lnSheetNom).Select    && Перходим на нужный лист
	m.lnRowCount=oworkbook.sheets(m.lnSheetNom).UsedRange.Rows.Count && кол-во строк
Catch
	m.isSucces=.F.
Endtry


If m.isSucces=.T.
	For m.lnCurRow= 2  To m.lnRowCount
		lnN=oworkbook.sheets(m.lnSheetNom).Cells(m.lnCurRow,Номер столбца).Value  && считали значение  
		lcC=oworkbook.sheets(m.lnSheetNom).Cells(m.lnCurRow,Номер столбца).Value && считали значени
		m.lnCurNom=Iif(Type("lnN")=="N",lnN, 0 ) &&  проверка типа
		m.lcCurAnswer=Iif(Type("lcC")=="C",lcC,"") && проверка типа

&& здесь открыть вспомогательную таблицу, найти в ней номер соответсвующий названию

		If .....  && и если найдено, то вставить запись в основную таблицу
			Insert Into MainAlias(name,nom) ;
				Values(ccccc,nnnnn)
		Endif
	Endfor
Endif

If Type("loexcel")=="O"  &&  закрываем книгу Эксел
	loexcel.displayalerts = .F.
	loexcel.Quit
	loexcel = .Null.
Endif

У дбфки такая структура:
type c( 1 ),name c( 3 ).