Automatically Importing multiple .csv files into db table 1

[n4nz]

Hi guys, I am trying to import multiple .csv files into one table using DoCmd.TransferText acImportDelim, I have no problems with one csv file but I want it to loop so that the contents of a directory specified containing all .csv files are imported or appended.

Thanks in advance

 

[PHV]

Have a look at the Dir function.

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[n4nz]

Ok here's the code i'm trying to use, however when run the Dir picks up the file name no problem, but then i get an Jet database Engine error telling me that it can't find the object 1.csv (which happens to be the file)

Function ImportCSV()

Dim ImportFile
ImportFile = Dir("d:\test\*.csv")
Do While ImportFile <> ""

DoCmd.TransferText acImportDelim, "", "TestImport", ImportFile, False, ""
ImportFile = Dir

Loop

End Function

 

[PHV]

DoCmd.TransferText acImportDelim, "", "TestImport", [!]"d:\test\" & [/!]ImportFile, False, ""

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[n4nz]

Many thanks, now works a treat..