>USE active1 >gcDelimName = ALIAS( ) + '.xls' >gcDelimFile = PUTFILE('excel_file:', gcDelimName, 'xls') >IF EMPTY(gcDelimFile) > RETURN >ENDIF >IF RECCOUNT() < 16001 > COPY TO (gcDelimFile) XLS && Create delimited file >ELSE > gcDelimFile = PUTFILE('excel_file:', gcDelimName, 'xls') > cFilePath = ADDBS(JUSTPATH(gcDelimFile)) > cFileName = JUSTSTEM(gcDelimFile) > cFileExt = JUSTEXT(gcDelimFile) > nFileCnt = 1 > GO TOP > DO WHILE .NOT. EOF() > cTarget = cFilePath+cFileName+"_"+ALLTRIM(STR(nFileCnt))+"."+cFileExt > nFileCnt= nFileCnt + 1 > COPY TO (cTarget) NEXT 16000 > ENDDO >ENDIF >