hello,
thank you very much,for help,advice and information.
but most what i ask for help, realy i try to do it at my self,
and i wish to know much to help people at ut as you done.
thanks.
m.qasem
>Hi Mohammed,
>
>I hope you always remember that we all want to help you to get the result that you want. But unless you also take the time to read our code carefully and understand HOW it works, we are only helping you getting a WORSE programmer. We give you a push in the right direction when you face a problem, but you must always expect to do the last work your self. In what is called pseudocode, here is a little help:
>

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