Import CSV files into table from Multi Select List Box?

[stu999]

Hi
What I would like to do is to import multiple CSV files into a table to use to create reports from selected result CSV files.

I have created the list box looking at the location and listing all files there and can get it to clear the table and import one CSV.

Just need some guidance on the best way to import more than one CSV into the table?

My code for importing one file is:

Private Sub bttnCSV_Click()
Dim mySQL
mySQL = "DELETE * FROM ArgonMonitor"
DoCmd.RunSQL mySQL
DoCmd.TransferText acImportDelim, , "ArgonMonitor", aFileList, True
End Sub
 
Private Sub Form_Load()
Call ListFiles("C:\Temp\ftpargon", , , Me.aFileList)
End Sub

Thanks

 

[gauntletxg]

If you have a subroutine (called ImportRoutine in this example) used to import one file, you can loop through the list box and run it on each file selected, i.e.

Dim x As Variant
With Me.aListfile
    If .ItemsSelected.Count > 0 Then
        For Each x In .ItemsSelected
            ImportRoutine (.ItemData(x))
        Next
    End If
End With

Just make sure you run the delete query outside of the Import subroutine, otherwise you will effectively only import the last file selected.

 

[stu999]

Thanks for your help, got it working, here is my working code for reference.

Dim x As Variant
With Me.aFileList
    If .ItemsSelected.Count > 0 Then
        For Each x In .ItemsSelected
            DoCmd.TransferText acImportDelim, , "ArgonMonitor", aFileList.ItemData(x), True
        Next
    End If
End With