Automatisk link eller import af seneste *.csv

Det må være muligt, at indlæse filnavnene i en tabel i Access, derefter ændre filnavnet til en dato . Derefter en DMax funktion der indlæser den seneste modtagne fil.

... og du behøver endda ikke konvertere til en dato. Filnavnene kan jo sorteres direkte. ;o)

Du kunne oprette en funktion til formålet, f.eks.:

Private Sub Test_FindNyesteFil()
  Debug.Print FindNyesteFil("AA")
End Sub

Function FindNyesteFil(Prefix As String) As String
  Dim fs, Folder, Filerne, Fil
 
  Set fs = CreateObject("Scripting.FileSystemObject")
  Set Folder = fs.GetFolder("C:\DinMappe\")  ' Indsæt aktuel mappe her
  Set Filerne = Folder.Files

  'Tøm tabellen
  DoCmd.SetWarnings False
  DoCmd.RunSQL ("DELETE Filnavne.* FROM Filnavne")
  DoCmd.SetWarnings True

  'Indlæs filnavnene
  For Each Fil In Filerne
    If Left(Fil.Name, Len(Prefix)) = Prefix Then
      DoCmd.SetWarnings False
      DoCmd.RunSQL ("INSERT INTO Filnavne(Filnavn) SELECT '" & Fil.Name & "'")
      DoCmd.SetWarnings True
    End If
  Next

  Set fs = Nothing
  Set Folder = Nothing
  Set Filerne = Nothing
 
  'Returner max
  FindNyesteFil = DMax("Filnavn", "Filnavne")
End Function

(forudsætter, at der ikke er andre filer i mappen, hvis navn starter med f.eks. AA)

Oooops. Du skal jo også lige huske at oprette tabellen Filnavne med bare et enkelt felt Filnavn (på f.eks. 20 tegn)

Jensen skriver:

"dataaktualitet i form af år, måned og dato"

det forstår jeg således, at der skal opretholdes en historik, så gamle .csv filer ikke slettes.

Mugs > dette er korrekt, eksisterende / allerede modtagne csv filer bibeholdes i biblioteket

Jeg kigger på jeres forslag i morgen

Hej Jensen!~)

Du kan gøre således:

http://www.parodux.com/?cat=36

Du kan så lave et eller andet, så den udfra de 2 startbogstaver vælger den tabel, som skal rammes... Men så er du nok nød til at lade datoforespørgslen skrive til en temp tabel ellers vil du kun få den første fil ind, som der er på den pågældende dato!~)

Det ser lovende ud ... har bare ikke haft tid til at kigge på det endnu ... ( månedsskifte )

god arbejdslyst!~)

Jeg har nu arbejdet lidt med en mulig løsning, men kan ikke helt finde noget tilfredsstillende, så jeg konkretisere lige opgaven i håb om at I kan vise mig løsningen :-)

Jeg har nu behov for at indlæse alle .csv filerne ( ikke kun seneste ) fra et bestemt bibliotek. Alt indhold er i tekstformat og indeholder ingen overskrifter ( Field1 - Field23 )

Sammen med importen, skal importtabellen beriges med oplysninger om fra hvilken fil importen stammer, altså en ekstra kolonne med filnavnet ...

Håber I bærer over med mig, det er længe siden jeg har arbejdet med vba, så jeg er lidt rusten :-(

Fortsat god dag !!!