Extreme Veteran
Beiträge: 572
| Hallo,
drehorgel - 24.07.15 09:02
ich suche einen VBA Code, der mir ein CSV File in die Tabelle1 importiert.
Die CSV-Datei hat als Trennzeichen Semikolon ( .
es sind 3 Spalten zu importieren in die Tabelle1: Felder: Feld1, Feld2, Feld3 (alles Textfelder ).
die CSV-Datei liegt im selben Ordner wie die Access-Datei.
1. Du musst eine Import- bzw. Link-Spezifikation anlegen. Darin werden die Felder beschrieben (Name, Typ) und die Datei selbst (festes Format, Trennzeichen). Den Assistenten findest du, wenn du unter Externe Daten -> Text Datei, eine Datei auswaehlst, auf OK klickst und unten links auf "Weitere" gehst. Den Namen, den du dafuer vergibst, verwendest du unter 2. statt "DeineSpezifikation".
2. In VBA verwendest du z.B.
docmd.TransferText acLinkDelim, "DeineSpezifikation", "TabellenNameInAccdb", "C:\Pfad\Datei.csv", True
Weiteres in der Hilfe unter TransferText.
3. Am besten per SQL aus "TabellenNameInAccdb" nach Tabelle1 schreiben:
strSQL = "INSERT INTO Tabelle1 ( Feld1, Feld2, Feld3 ) SELECT Feld1, Feld2, Feld3 FROM TabellenNameInAccdb"
CurrentDb.Execute strSQL, dbFailOnError
----- Gruss - Peter |