myml=GETDIR()
eole=CREATEOBJECT("Excel.application")
WITH eole
.Workbooks.add
.Workbooks[1].SaveAs("e:\ALLFIEL.XLS",39)
FOR i=1 TO ADIR(alj,myml-"\*.xls")
aljstr="alj("-TRANSFORM(i)-',1)'
myfile=myml-&aljstr
.Workbooks.Open(myfile)
.DisplayAlerts = .F.
.ActiveSheet.UsedRange.Cells.Copy
.Windows("ALLFIEL.XLS").Activate
h1=TRANSFORM(.activesheet.usedrange.rows.count+IIF(i=1,0,1))
.Cells(h1,1).Select
.ActiveSheet.Paste
.Windows(JUSTSTEM(myfile)).Close(.f.)
NEXT
.ActiveWorkbook.close(.t.)
.quit
ENDWITH