import CSV files into new tables

[ashwinghanta]

​	I am trying to import CSV files located in a folder into Access as new tables and I have been trying with a code

<tbody>
</tbody>

​

I am trying to import CSV files located in a folder into Access as new tables and I have been trying with a code Public Const rootdir = "C:\Users\deb670s\Desktop\importcsv" Sub import() Dim nr As Integer Dim file As AcBrowseToObjectType file = Dir$(rootdir & "*.csv") nr = 1 Do While file <> "" DoCmd.TransferText acImportDelim, "ImportSpec", "NewTableName-" & nr, rootdir & file, True, msoEncodingCentralEuropean file = Dir$ nr = nr + 1 Loop End Sub But I get an error saying variable not defined at msoEncodingCentralEuropean Can someone tell me where am I going wrong?

<tbody>
</tbody>

 

[Joe4]

I have changed the location of the folder. I think it was causing a problem with Users as I'm using a German windows system. I'd like to thank you for the help

I see that you dropped the extra last argument in TransferText like I mentioned too. I think that was an issue also, as it seems you only use that optional argument with HTML files, which you are not using.