New user
Beiträge: 1
| Hallo zusammen,
hab hier ein echt nerviges Problem und komm leider nicht weiter.
Ich möchte mehrere CSV Dateien in meine Datenbank einlesen.
Dafür nehme ich diesen Code:
Dim Pfad$, Datei$, GefDatei$
Dim Tabelle$
Pfad$ = "C:\Users\xxxx\Documents\xxxxxx\" '<-- Pfad zu den CSV-Dateien
Datei$ = "*.CSV" '<-- Dateierweiterung der CSV-Dateien
Tabelle$ = "tbl_import" '<-- Name der Tabelle, in die die CSV-Dateien importiert werden sollen
GefDatei$ = Dir(Pfad$ & Datei$, vbNormal)
MsgBox Pfad$ & GefDatei$
DoCmd.TransferText acImportDelim, "CSVImport", "tbl_import", GefDatei$, True
Das Verwirrende an der ganzen Sache ist, wenn ich eine neue Datenbank erstelle, den Code ausführe, dann klappt alles wunderbar. Aber nachdem ich die Datenbank einmal gespeichert habe bekomme ich
den Laufzeitfehler 3011 weil die Datei nicht gefunden werden kann.
Die MsgBox liefert mir den korrekten Pfad, aber es funktioniert nur bei einer neuen Datenbank.
Vielleicht kann mir von Euch einer einen Tipp geben. Wahrscheinlich ganz was triviales.
sg maheda
|
