lparameters tcResultAlias, tcResultDbf
Local loExcel,loWorkBook, losheet, lcTempFileName,lcFileDbf,lcOldXAlias, llerror

Set Talk off
Set Safety off

tcResultAlias='pricedms'
	
	if empty(tcResultDbf)
		if empty(tcResultAlias)
			tcResultDbf = sys( 2015 )
		else
			tcResultDbf = tcResultAlias
		endif
	endif

	* создаем объект 
	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 ''
	endif

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

	if not type('m.loWorkBook') = 'O' or isnull(m.loWorkBook)
		=MessageBox('Невозможно создать рабочую книгу!', 16, 'Ошибка импорта')
		return ''
	endif
   
   * формируем имя временного файла 
	lcTempFileName = sys( 2023 ) + '\' + tcResultDbf + ".xls"
	erase(lcTempFileName)

!вот на этом месте спотыкается! и пишет в лог:
"Дата и время: 25/08/2011 11:45:13;Номер ошибки: 0;Сообщение: OLE error code 0x80010105: Ошибка на сервере.;Строка с ошибкой: loWorkBook.SaveAs(m.lcTempFileName, 39, "", "", .f., .f.);Номер строки с ошибкой: 43." 	

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

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

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

   * осуществляем импорт
	lcOldXAlias = alias()
	
	Try
    	import from (m.lcTempFileName) type xl5
	CATCH TO llerror
	
	llerror=.t.
	
	ENDTRY
	
	IF llerror=.t.
		MESSAGEBOX('Ошибка импорта данных!',16,'Ошибка')
	ELSE
		lcFileDbf = dbf()
	ENDIF
	
   * стираем временныe файлы
	erase (m.lcTempFileName)


	Return lcFileDbf