MS Access 2016 Import multiple CSV files

I'm trying to import multiple csv files, all in the same directory into MS Access 2016.

This is the VBA module I currently have, thanks to physics2010,but it's not working. Any tips?

Option Compare Database
Option Explicit
Function DoImport()
Dim strPathFile As String
Dim strFile As String
Dim strPath As String
Dim strTable As String
Dim blnHasFieldNames As Boolean
' Change this next line to True if the first row in CSV worksheet
' has field names
blnHasFieldNames = True
' Replace C:\Documents\ with the real path to the folder that
' contains the CSV files
strPath = "C:\Users\xxx"
' Replace tablename with the real name of the table into which
' the data are to be imported
strTable = "Table1"
strFile = Dir(strPath & "*.csv")
Do While Len(strFile) > 0 strTable = Left(strFile, Len(strFile) - 4) strPathFile = strPath & strFile DoCmd.TransferText acImportDelim, , strTable, strPathFile, blnHasFieldNames
' Uncomment out the next code step if you want to delete the
' EXCEL file after it's been imported
' Kill strPathFile strFile = Dir()
Loop MsgBox "done"
End Function

3

1 Answer

Thanks to Atzmon, the problem was in my strPath, instead of strPath = "C:\Users\xxx" it should be strPath = "C:\Users\xxx\"

Your Answer

Sign up or log in

Sign up using Google Sign up using Facebook Sign up using Email and Password Submit

Post as a guest

Post Your Answer Discard

By clicking “Post Your Answer”, you agree to our terms of service, privacy policy and cookie policy