>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 ox > >>