import CSV files into new tables

[ashwinghanta]

<tbody>
[TD="class: votecell"]

​

[/TD]
[TD="class: postcell"]I am trying to import CSV files located in a folder into Access as new tables and I have been trying with a code
[/TD]

</tbody>

<tbody>
[TD="class: votecell"]

​

[/TD]
[TD="class: postcell"]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?
[/TD]

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