FileName=THISFORM.text2.Value
copy file "source.xls" to (filename)
XlsHandle=CREATEOBJECT("Excel.Application")

Book=XlsHandle.workbooks.open(FileName)
XlsHandle.DisplayAlerts=.F.

FOR x= 1  TO ALEN(arr,  1 )
	SELECT id_ie_, fmnr_, namea_, namep_, kpos_, vietas_n_, data_, dataf_, sin_, sout_, prf_, day_, ekin_ ;
		FROM (dbf_file) ;
		WHERE TRIM(vietas_n_)=TRIM(arr[x]) ;
		into array out_arr
	FOR y= 1  TO ALEN(out_arr,  1 )
*		book.Sheets( 2 ).Cells( 2 , ratio_arr[x, 1 ]).Value=ratio_arr[x, 2 ]
*		book.Sheets( 2 ).Cells( 1 , ratio_arr[x, 1 ]).Value=ratio_arr[x, 4 ]
	ENDFOR 
ENDFOR