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