DatabaseName is the name of the database to import the CSV file into. NewTableName is the name of the table in DatabaseName to store the imported data. If your table name has blanks in it, you should surround it with square brackets [ ]. CSVFilePath is the directory that contains the CSV file to import. CSVFilename is the name of the CSV file that you are importing. You need to call CSVFilePath before calling CSVFilename.

Public DatabaseName As String
Public NewTableName As String
Public Property Let CSVFilePath(sCSVFilepath As String)
Public Property Get CSVFilePath() As String
Public Property Let CSVFilename(sCSVFilename As String)
Public Property Get CSVFilename() As String

ImportData is the routine that does all the good stuff. This routine will open the CSV file as a database, build a SQL string to import the file and then import the file. If the table already exists in the destination database it will remove it and overwrite it. Depending on your application you might want to change this behavior. You might want to raise an error and give the end user a choice to overwrite the table or not.

Public Function ImportData() As Long

Below is an example of how this class works. It is assumed e:\temp contains the file freesub.txt to import. It also assumes the database e:\temp\importtest.mdb exists already.

    Dim Import As New cImportCSV
    Dim lRecs As Long

    Import.CSVFilePath = "e:\temp"
    Import.CSVFilename = "freesub.txt"
    Import.DatabaseName = "e:\temp\importtest.mdb"
    Import.NewTableName = "newimport"
    lRecs = Import.ImportData
    MsgBox lRecs & " records imported."