CSV bestanden importeren met vba

[Ricky2]

Wie kan mij helpen?

In een access database heb ik een aantal 13-tal tabellen staan die gevuld worden a.d.h.v. bijbehorende 13 Excel bestanden (CSV bestanden, comma seperated).

De tabelindeling in Access is gelijk aan dat van de CSV bestanden.
Dit kan ik doen handmatig danwel met een macro.

Doch door omstandigheden moet ik dezelfde importstappen middels VBA script afwikkelen, dus met gebruik makend van de bestaande importspecificaties e.d.

Wie kan mij een vba code aanreiken die deze 13 csv files importeert in de aanwezige 13 Access tabellen????

Alvast bedankt !:thumb:

 

[Guus2005]

Ricky2,

Je kan met onderstaande code een csv bestand inlezen door gebruik te maken van de vooringestelde specificaties.

        DoCmd.TransferText acImportDelim, strSpecName, strExportTableOrQuery, strOutputFile, blnHasFieldNames

strSpecName is de naam van de vooraf bewaarde specificaties
strExportTableOrQuery is de naam van de tabel of query die moet worden geëxporteerd
strOutputFile is de naam van de csv importfile
blnHasFieldNames geeft aan of de eerste regel in de import file veldnamen bevat.

Je kan voor ieder import bestand een regel opnemen of beter, de namen opnemen in een tabel en dan een lus maken op basis van een recordset met die namen.

Enjoy!

 

[Ricky2]

Thanx, het werkt !!:thumb::thumb: