SELECT table ox=CREATEOBJECT('Excel.Application') ox.workbooks.add() mnrowadd=0 SCAN ox.Activeworkbook.Worksheets(1).Cells(1+mnrowadd,1).Value=Field1 ox.Activeworkbook.Worksheets(1).Cells(1+mnrowadd,2).Value=Field2 ox.Activeworkbook.Worksheets(1).Cells(1+mnrowadd,3).Value=Field3 ox.Activeworkbook.Worksheets(1).Cells(1+mnrowadd,4).Value=Field4 ox.Activeworkbook.Worksheets(1).Cells(1+mnrowadd,5).Value=Field5 ox.Activeworkbook.Worksheets(1).Cells(1+mnrowadd,6).Value=Field6 mnrowadd=mnrowadd+1 ENDSCAN ox.ActiveWorkbook.SaveAs(%filename%) ox.Quit RELEASE oxHTH