hi all,
i need help with this code under,to let all tables i have it,convert it to excel sheets as under

CLOSE all
USE aaa
use bbb
use ccc
use ddd....etc..

*INDEX ON flag tag FLAG_TAG
gcDelimName = ALIAS( ) + '.xls'
gcDelimFile = PUTFILE('excel_file:', gcDelimName, 'xls')
IF EMPTY(gcDelimFile)  && Esc pressed
   CANCEL
ENDIF
COPY TO (gcDelimFile) xls  && Create delimited file
MODIFY FILE (gcDelimFile) NOEDIT
endif