Import af mange .CSV filer fra én folder.

Something like this should work

Dim folder As String
Dim fso As Variant
Dim fld As Variant
Dim file As Variant




    folder = "C:\testfolder"
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set fld = fso.getFolder(folder)
   
    For Each file In fld.files
        DoCmd.TransferText , , "TableNameGoesHere", file.Name
       
    Next

Den kan jeg ikke få til at fungere?

Jeg er ikke så stærk i dette. Så jeg skal guides på lavt niveau. :)

Make a from and place a button on the form.
In the buutons OnClick event copy the code above.

Change
folder = "C:\testfolder"

to the folder you want to use.

Change
TableNameGoesHere

to the table you want to use. This should already exist with the correct fields.

are you still having problems nanoq?

Hej igen,

Du må undskylde mit fravær. Jeg har ligget syg, uden adgang til nettet.

Jeg har stadig problemer med at få det til at virke. Jeg har dog ikke tid til at teste videre, før mandag eller tirsdag. Så jeg vender tilbage der.

på forhånd tak for hjælpen. :)

Do you still need help here nanoq? You could maybe send me the dB and a couple of CSV files and I could maybe put something together.

cant help without some feedback nanaoq

?

Thanks

undskyld den lange reaktionstid. Det kom jo til at fungere perfekt. Jeg havde simpelt hen glemt denne tråd.

no problem nanoq we got there in the end :o)