How do Import multiple CVS???

Question

I need to import multiple CSV files into ONE access table.... how do I do this?

---

ol

Answer 1

One at a time? Are you asking manually or in code?

Answer 2

Hi,

Are file names with path of CSV files provided in advance?  Are they saved in the same folder?
Is file extension ".csv"?
You should provide the further details about what you want to do.
Regards,

---

Ashidacchi

Answer 3

Hi mwareing,

Has your issue been resolved? If not, it would be helpful if you could share us more information.

If you want to manually import multiple csv files, it is impossible. Access database does not support this feature.

If you want to achieve by code, I suggest you loop through the files and import them:

DoCmd.TransferText TransferType:=acImportDelim, TableName:="tblImport", _
    FileName:="C:\MyData.csv", HasFieldNames:=true

Best Regards,

Edward

---

MSDN Community Support
Please remember to click "Mark as Answer" the responses that resolved your issue, and to click "Unmark as Answer" if not. This can be beneficial to other community members reading this thread. If you have any compliments or complaints to MSDN Support, feel free to contact [e-mail].

Answer 4

I can imagine that there are several ways to do this.  Try it this way.

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:\Documents\" 

 ' Replace tablename with the real name of the table into which 
 ' the data are to be imported 

 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 


End Function 

---

MY BOOK

Answer 5

Whoops, I didn't know you wanted all the files to go into ONE single table.  Ok, try this.

        Dim strPathFile As String, strFile As String, strPath As String
        Dim strTable As String, strBrowseMsg As String
        Dim blnHasFieldNames as Boolean

        ' Change this next line to True if the first row in EXCEL worksheet
        ' has field names
        blnHasFieldNames = False

        strBrowseMsg = "Select the folder that contains the CSV files:"

        strPath = "C:\your_path_here\"

        If strPath = "" Then
              MsgBox "No folder was selected.", vbOK, "No Selection"
              Exit Sub
        End If

        ' Replace tablename with the real name of the table into which
        ' the data are to be imported
        strTable = "tablename"

        strFile = Dir(strPath & "\*.csv")
        Do While Len(strFile) > 0
              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

---

MY BOOK