Need help to export all the tables to text files

[mailmeyathish]

Hi

I want to export all the tables in my access database to .txt files, please get me a VBA code for the same.

I would like to see the exported .txt files in a particular location in my PC.


Please help.

Thank you

Yathi

 

[ranman256]

make a table to hold the list of tables you want to export, then in a form , but a button to run this code:

dim rst, vTbl, vTargFile
const kPATH = "C:\folder\"

set rst = currentdb.openrecordset("tTblList")
with rst
   while not .eof
       vTbl = .fields(0).value
        vTargFile = kPATH & vTbl & ".txt"
         docmd.TransferText acExportDelim ,,vTbl,vTargFile,true
       .movenext
   wend
end with