*-----------------------------------------------------------------------* * CreateXls breaks up a copy of a table into Excel spreadsheets. *-----------------------------------------------------------------------* LPARAMETERS pSourceTbl, pSourceAls, pXlsFile StartAt = 1 MaxXlsRows = 16383 && MAX NUMBER OF EXCEL ROWS IN EXCEL 97 not including header EndAt = MaxXlsRows USE (pSourceTbl) ALIAS (pSourceAls) IN 0 // You may have a preferred way to select a table IF RECCOUNT() < MaxXlsRows COPY TO ((pXlsFile + ".Xls")) TYPE XL5 ELSE FOR XlsLoopCtr = StartAt TO CEILING(RECCOUNT()/MaxXlsRows) XlsFile = pXlsFile + LTRIM(STR(XlsLoopCtr,2)) + '.Xls' COPY TO (XlsFile) TYPE XL5 FOR BETWEEN(RECNO(),StartAt,EndAt) StartAt = StartAt + MaxXlsRows EndAt = EndAt + MaxXlsRows NEXT XlsloopCtr ENDIF RETURN .T.>Bill Koretoff