oleApp1 = Createobject("Excel.Application")
oleApp1.Workbooks.Open("G:\Otchet\forma125\DOC\IMPORT\F125_factorsTST.xls")
oleItem1 = oleApp1.Workbooks.Item( 1 )

***////////////////////////////////////////////////////////////////////////////////////////////////////////
*** название организации, куда предоставляем отчет

*** настроим формат даты
SET CENTURY on
SET DATE TO german
*** определим часть в имени файла
fname = SUBSTR(DTOC(DATE()), 7 , 4 ) + SUBSTR(DTOC(DATE()), 4 , 2 ) +SUBSTR(DTOC(DATE()), 1 , 2 )
*** делаем имя уникальным

*** создаем  файл
handle=FCREATE("G:\Otchet\forma125\DOC\IMPORT\F125"+fname+".TXT")

** читаем все столбцы и строки
FOR i =  0  TO  17 
	FOR j =  0  TO  12 
    	T1 = oleItem1.Sheets.Item( 1 ).Cells( 10 +i, 4 +j).Value
	    nameaget = oleItem1.Sheets.Item( 1 ).Cells( 10 +i, 4 +j).name.name && Читаем имя ячейки

    	IF SUBSTR(nameaget , 1 , 4 )="F125"
	        gstr = nameaget+" "+STR(T1, 20 , 2 )
	    	FPUTS(handle,gstr)
    	endif

	ENDFOR
endfor
=FCLOSE( handle ) && закроем файл

oleApp1.Visible = .T. && Высветим файлик EXCEL