Import af flere txt filer fra samme mappe til en tabel i access

Er filen kendt af access, eller skal access søge efter filen i en i en given mappe.

Access skal søge efter filerne.

En grov skitse kunne være:

Private Sub Test_IndlæsMangeFiler()
  IndlæsMangeFiler ("C:\Temp\MinMappe\")  ' Indsæt aktuel mappe her
End Sub

Sub IndlæsMangeFiler(Mappe As String)
  Dim fs, Folder, Filerne, Fil
 
  Set fs = CreateObject("Scripting.FileSystemObject")
  Set Folder = fs.GetFolder(Mappe)
  Set Filerne = Folder.Files

  For Each Fil In Filerne
    DoCmd.TransferText , , "DinTabel", Mappe & Fil.Name, False
  Next

  Set fs = Nothing
  Set Folder = Nothing
  Set Filerne = Nothing
End Sub

Forudsætter, at du har oprettet en tabel ved navn DinTabel. Som udgangspunkt er det nok smart at oprette den med tekstfelter (F1, F2 osv) og så bagefter validere/rense data og sende dem over i den endelige tabel.

... selvfølgelig også under forudsætning af at der ikke er en header-linie. Ellers er feltnavnene jo givet på forhånd  :o)

Takker for point ;o)