>>CLOSE ALL >>lnTables=ADIR(laDummy,'*.dbf') && puts the names of your tables into an array laDummy >>FOR lnCounter=1 to lnTables >> use (laDummy(lnCounter)) >> COPY TO (justfname(laDummy(lnCounter))) type xls && OR maybe "EXPORT TO (justfname(laDummy(lnCounter))) type xls" is better? >>ENDFOR >>>>NB! Note that pseudocode is not tested, and is not ment to work as is, it may require some modifications which should be easy to do yourself when you understand my procedure.
>>>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 >>>