hi,
thank you,
i try as under i see at sheet2 ,sometimes 16 records,next test 12 records next 10 records next 14 records...etc but i must get from my table 274 records exactly,
and i get error message after save the excel book ole error code ox800ac472 unknown com stutus code, at

loCol.Value = evaluate( laFields[i,1] )

i try to change loWorkbook to loWorkbookS for all code,same thing

and i try via set step on just i get empty excel book with 4 sheets,

and still i don't know how i can insert via select stament into sheet1,sheet2 and sheet3 via this code.

anyway you try to bush me to do somthing , but i'm soory.

CLOSE all
USE AM2 IN 0
Select * from am2 ;
  where INLIST( val(char3), 100, 201, 202, 203 );
 and ( inList( upper(allt(telno)), "ADSL 1")) ;
   into table am3 nofilter  
USE am3
INDEX ON  telno TO kk ascending
brow
loExcel = createobject( "excel.application" )
loExcel.Visible = .t.

loWorkbooks = loExcel.Workbooks
loWorkbooks.Add()
loWorkbooks = loExcel.ActiveWorkbook
loSheet = loExcel.ActiveSheet


*******************************************
? loWorkbooks.Sheets.Count && examine how many sheets the workbook contains

loSheet = loWorkbooks.Sheets(2) && pick the second sheet

loWorkbooks.Sheets.Add() && add a new sheet to the Sheets collection

***********************************************
n = afields( laFields )
? n

scan


   loRow = loSheet.Rows( recno() )
   for i = 1 to n
      loCol = loRow.Cells(,i)
      loCol.Value = evaluate( laFields[i,1] )
   endfor

endscan

loCol = .null.
loRow = .null.

thank you,
have anice day


>Mohammed
>
>>&&i need to insert at the new excle sheet (test),just what i select from am2.
>>&& any way to insert as my select ex...
>>first sheet have only"ADSL 1"
>>second sheet have "B ISDN ")
>>therd sheet have "LL" , or i must do that manyaly
>
>You can easily run part of the code in a loop and use either a SELECT ... WHERE or a SET FILTER to get your three subsets of data
>
>You can work with alternate sheets of the workbook with code like this:
>
>

? loWorkbook.Sheets.Count && examine how many sheets the workbook contains
>
>loSheet = loWorkbook.Sheets(2) && pick the second sheet
>
>loWorkbook.Sheets.Add() && add a new sheet to the Sheets collection
>

>
>>&& and via getdir () inside the code ,i can choice the place to save this excel book with new name.
>
>capture the result of getdir() to a variable and use it in the call to the Close() method.