hi all,

any help, idea
i need to choice from every excel book(have one sheet only), only records
have data ="home" from field name is /ROW/CATEGORY_DESC,
to insert it into new excel book sheet, via this code under.

#define xlCellTypeLastCell  11

oExcel = CREATEOBJECT("Excel.Application")
oExcel.Visible = .t.
oExcel.DisplayAlerts = .f.
*DIMENSION MyExcelFiles[5]
DIMENSION MyExcelFiles(THISFORM.TEXT6.VALUE)

  THISFORM.TEXT1.Visible=.T. 
      IF THISFORM.TEXT1.Value>SPACE(10)
          MyExcelFiles[1] = (THISFORM.TEXT1.VALUE)
      ENDIF

IF THISFORM.TEXT2.Value>SPACE(10)
   MyExcelFiles[2] = (THISFORM.TEXT2.VALUE)
ENDIF

IF THISFORM.TEXT3.Value>SPACE(10)
   MyExcelFiles[3] = (THISFORM.TEXT3.VALUE)
endif

IF THISFORM.TEXT4.Value>SPACE(10)
  MyExcelFiles[4] = (THISFORM.TEXT4.VALUE)
ENDIF

IF THISFORM.TEXT5.Value>SPACE(10)
  MyExcelFiles[5] = (THISFORM.TEXT5.VALUE)
endif

IF THISFORM.TEXT7.Value>SPACE(10)
  MyExcelFiles[7] = (THISFORM.TEXT7.VALUE)
endif

IF THISFORM.TEXT8.Value>SPACE(10)
  MyExcelFiles[8] = (THISFORM.TEXT8.VALUE)
ENDIF

IF THISFORM.TEXT9.Value>SPACE(10)
  MyExcelFiles[9] = (THISFORM.TEXT9.VALUE)
ENDIF

IF THISFORM.TEXT10.Value>SPACE(10)
  MyExcelFiles[10] = (THISFORM.TEXT10.VALUE)
endif

IF THISFORM.TEXT11.Value>SPACE(10)
  MyExcelFiles[11] = (THISFORM.TEXT11.VALUE)
ENDIF

IF THISFORM.TEXT12.Value>SPACE(10)
  MyExcelFiles[12] = (THISFORM.TEXT12.VALUE)
ENDIF

IF THISFORM.TEXT13.Value>SPACE(10)
  MyExcelFiles[13] = (THISFORM.TEXT13.VALUE)
ENDIF

IF THISFORM.TEXT14.Value>SPACE(10)
  MyExcelFiles[14] = (THISFORM.TEXT14.VALUE)
ENDIF

IF THISFORM.TEXT15.Value>SPACE(10)
  MyExcelFiles[15] = (THISFORM.TEXT15.VALUE)
ENDIF

oExcel.WorkBooks.Open(MyExcelFiles[1])
oActive = oExcel.ActiveWorkbook.Name

*FOR nXLS = 2 TO 5
FOR nXLS = 2 TO (THISFORM.TEXT6.VALUE)

    oExcel.ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Select
    lastrow = oExcel.Selection.Row   
    oExcel.ActiveSheet.Cells(lastrow + 1, 1).Select
    oExcel.WorkBooks.Open(MyExcelFiles[nXLS])
    cNewBook = oExcel.ActiveWorkbook.Name
    oExcel.ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Select
    lastrow = oExcel.Selection.Row
    oExcel.ActiveWorkbook.ActiveSheet.Rows("3:"+TRANSFORM(lastrow)).Select
    oExcel.Selection.Copy()
    oExcel.Windows(oActive).Activate
    oExcel.ActiveWorkbook.ActiveSheet.Paste()
    oExcel.Windows(cNewBook).Activate
    oExcel.ActiveWorkbook.Close()
    oExcel.Windows(oActive).Activate
NEXT
oExcel.ActiveWorkbook.SaveAs("e:\SOSOSO.XLS") 


oExcel.Quit()
oExcel = NULL
RELEASE oExcel

thanks.