do import_from_excel("test.xls", "result")

* import_from_excel
lparameters tcFileName, tcResultAlias

private all

*	создаем объект 
loExcel = CreateObject("Excel.Application")

if not type('m.loExcel') = 'O' or isnull(m.loExcel)
	=MessageBox('Невозможно создать объект Excel.Application!' + chr( 13 ) + chr( 10 ) + ;
		'Проверьте правильность установки MS Office.',  16 , 'Ошибка импорта')
	return .f.
endif

*	открываем книгу
loWorkBook = loExcel.WorkBooks.Open(m.tcFileName)

if not type('m.loWorkBook') = 'O' or isnull(m.loWorkBook)
	=MessageBox('Невозможно создать рабочую книгу!',  16 , 'Ошибка импорта')
	return .f.
endif

*	формируем имя временного файла 
lcTempFileName = sys( 2023 ) + '\t' + sys( 2015 ) + ".xls"

*	сохраняем книгу в формате xlExcel5 =  39 
loWorkBook.SaveAs(m.lcTempFileName,  39 , "", "", .f., .f.)

*	закрываем рабочую книгу
loWorkBook.Close()

*	выходим из приложения
loExcel.Quit()

*	осуществляем импорт
select  0 
lnAlias = select( 0 )
import from	(m.lcTempFileName) type xl5

*	стираем временныe файлы
erase (m.lcTempFileName)
erase (m.lcFileName)	

*	переоткрываем под заданным алиасом
use (dbf()) in  0  again alias &tcResultAlias.
use in m.lnAlias