Importere alle csv-filer i en mappe

Importer til hvad: En enkelt tabel eller 10 tabeller?

Bare til en enkelt tabel!~)

Prøv noget i stil med:

Function Indlæs()
  Dim D As String
 
  DoCmd.RunSQL ("DELETE Tabel1.* FROM Tabel1")
 
  D = Dir("c:/mappe/fil*.csv")
  Do Until D = ""
    DoCmd.TransferText acImportDelim, "", "TempTabel", D, True
    DoCmd.RunSQL "INSERT INTO Tabel1 SELECT TempTabel.* FROM TempTabel;"
   
    D = Dir
  Loop
End Function

Jo, jeg kan godt få den til at importere filerne, jeg har lige nogle importfejl og diverse, men det var lige hvad jeg skulle bruge!~)

Fint. Takker for point  ;o)