thank you,
but i need somthing include Mr.sergey code.

>Mohammed,
>
>I posted the solution we used - create separate XLS files and combine them later.
>
>>thank you very much, it works.
>>i need your help agin to copy it at one excel book (sheet1,to .....sheet18) to ("c:\dept\amman)
>>
>>

>>lnMax = 18
>>FOR i=1 TO lnMax
>>   USE IN ( SELECT("Temp") )
>>   SELECT * FROM koko WHERE numbers=i  INTO CURSOR Temp
>>*********************************************************************************
>>**mybe via this code
>>Local oExcel
>>oExcel = Createobject("Excel.Application")
>>With oExcel
>>  .DisplayAlerts = .F.
>>  .Workbooks.Add
>>  .Visible = .T.
>>  With .ActiveWorkBook
>>    For ix = 1 To 18 
>>*********************************************************************
>>COPY TO ("c:\dept\amman\"book1.sheet" + TRANSFORM(i)) TYPE XL5 && 
>>***************************************************************************
>>          If .sheets.Count < m.ix
>>             .sheets.Add(,.sheets(.sheets.Count)) 
>>         Endif
>>    ENDFOR
>>   ENDWITH
>>  ENDWITH
>>
>>***************************************************************************** 
>> ENDFOR
>>USE IN ( SELECT("Temp") )
>>

>>
>>>You can use FOR loop
>>>

>>>lnMax = 18
>>>FOR i=1 TO lnMax
>>>   USE IN ( SELECT("Temp") )
>>>   SELECT * FROM koko WHERE numbers=i  INTO CURSOR Temp
>>>   COPY TO ("sheet" + TRANSFORM(i)) TYPE XL5 
>>>ENDFOR
>>>USE IN ( SELECT("Temp") )
>>>

>>>
>>>Or even simpler
>>>
>>>

>>>lnMax = 18
>>>FOR i=1 TO lnMax
>>>   COPY FOR numbers=i TO ("sheet" + TRANSFORM(i)) TYPE XL5 
>>>ENDFOR
>>>
>>>

>>>
>>>
>>>>i try as below it works is there another way to do it fast
>>>>

>>>>SELECT * FROM koko WHERE numbers=1  INTO CURSOR Sheet1
>>>>COPY TO  sheet1 TYPE XL5 && it works
>>>>&& is there away to copy to book1.sheet1  TYPE XL5
>>>>
>>>>SELECT * FROM koko WHERE numbers=2  INTO CURSOR Sheet2
>>>>COPY TO  sheet2 TYPE XL5 &&
>>>>&& copy to book1.sheet2 
>>>>.
>>>>.
>>>>.
>>>>
>>>>SELECT * FROM koko WHERE numbers=18  INTO CURSOR Sheet18
>>>>COPY TO  sheet18 TYPE XL5 &&
>>>>&& copy to book1.sheet18 
>>>>
>>>>

>>>>thanks