Hessel de Walle's Blog

The Problem The other day I ran into a problem with DoCmd.TransferText: it will not accept text files having longer names that 64 characters. Possibly, because 64 characters is the maximum length of an object name in Access. You will get an error message: So I tried to find a work around. My Work Around First, I created a table in Access to store information about the text files, in this particular case, CSV files. The I created a VBA script which actually store the information in the table strMapCSV = CurrentProject.Path & "\" Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder(strMapCSV) For Each f1 In f.files  If Right(f1.Name, 3) = "csv" And Left(f1.Name, 4) <> "file" Then    strSQL = "insert into tblCSVfiles (CSVname, CSVsize,CSVdate,CSValias) "    strSQL = strSQL & " VALUES ('" & Replace(f1.Name, "'", "`") & ...

Access voor automatische import CSV; gekoppeld Excel voor de weergave Naar aanleiding van een vraag van een klant heb ik een Access database gemaakt dat automatisch een CSV bestand importeert. Voorwaarde was ook dat dit CSV bestand automatisch opnieuw geïmporteerd wordt als dit bestand vernieuwd wordt. Hoe ziet deze code er globaal uit? De timer Bij het laden van een formulier kunnen we instellen om de hoeveel tijd (in milliseconden) code moet worden uitgevoerd. Sub Form_Load()     Me.TimerInterval = 1000 'in milliseconden  End Sub Vervolgens kunnen we dan de code schrijven voor de Timer gebeurtenis van een formulier. Sub Form_Timer()      'hier komt de code  End Sub Deze code gaan we nu behandelen. Verzamelen namen CSV bestanden Met behulp van het FileSystemObject heb ik de namen en de datum van laatste wijziging van de CSV bestanden in een map opgeslagen in een Access tabel:     'tabel csv legen om steeds ...