sele (pcAlias) go top outfile="c:\"+alias()+".xls" ObjExcel= CREATEOBJECT("Excel.Application") with ObjExcel .DisplayAlerts = .f. * .visible=.t. .Workbooks.add() endwith isheet=0 lnrec=60000 do while not eof() isheet=isheet+1 wait wind nowa trans(recn()) _VFP.Datatoclip(,lnrec,3) with ObjExcel if .Sheets.Count<isheet .Worksheets.add(,.sheets(isheet-1)) endif .Sheets(isheet).Activate .Range("a1").Select .ActiveSheet.Paste() endwith skip lnrec enddo ObjExcel.Workbooks(1).SaveAS(outfile) ObjExcel.quit ObjExcel= .NULL. release objexcel