Office: (Office 2016) *.csv aus Ordner automatisiert in vorhandene Acces-Tabelle importieren

Ich habe jetzt diesen Teil mal rausgenommen:

Code:

Funktioniert leider auch nicht.

Wenn man auf den Button klickt dann erscheint im VBA Editor im "Direktbereich" immer der Dateiname der ersten Datei im Verzeichnis..(welcher auch bei der Fehlermeldung genannt wird)

 

Ach, und der aktuelle Code sieht so aus.

Code:

 

Poste doch mal den Dateinamen aus dem Direktbereich.
maike

 

4645-4655.csv

Habe gelesen, dass der Fehler auftritt, wenn ein Punkt im Dateinamen ist. Habe daraufhin das Minus aus dem Namen genommen -> selbe Fehlermeldung, nur eben ohne das Minus im Namen.

 

Code:

Wenn die Variable AktDatei "4645-4655.csv" enthält, wo ist dann der zugehörige Pfad? Der muss da ja mit rein ...
maike

 

Code:

Code:

Code:

Hoffe das funktioniert so verschachtelt.

Es hat ja 1x funktioniert und dann kam immer der Laufzeitfehler 3011

 

Code:

maike

 

Da kommt nun die Fehlermeldung:

Konnte die Datei neueCSV4645-4655.csv nicht finden. Auch mit Laufzeitfehler 3011.

neueCSV ist der Ordner in welchem die ganzen zu importierenden CSV's liegen.

Wenn der Pfad fehlen sollte, hätte es vorhin ja auch nicht 1x funktionieren können.

Als es vorhin funktioniert hat, habe ich versucht die beiden CSV Verzeichnisse (neueCSV / Ablage) auf ein verschlüsseltes Laufwerk zu ziehen. Gesagt getan = Laufzeitfehler 3011.

Habe dann wieder alles dahin zurück verschoben, wo es ursprünglich war.

Kann es damit zusammenhängen?

 

Habe den Fehler gefunden, habe in dem hinterlegten Pfad der Variable "SuchVerzeichnis" den Backslash am Ende vergesse.. Wie peinlich

In der Importzeile habe ich allerdings dann Suchverzeichnis & AktDatei übernommen. Funktioniert, da scheint der Fehler gelegen zu haben.

Vielen Dank maike! *Smilie

 

Mein hoffentlich letztes Anliegen zu diesem Thema.

Der Import funktioniert. Das Verschieben in ein anderes Verzeichnis, nachdem importiert wurde, funktioniert leider nicht.. Hat es aber mal. Wenn ich mich nicht völlig irre, habe ich an dem Code zum verschieben auch nichts geändert.

Hier der Code:

Code:

Danke schonmal im voraus!

 

Da fehlt auch der Pfad.
Und da ich bei meinem Beispiel davon ausging, dass dieser in strDatei enthalten ist, musste ich den Dateinamen dann per Right() abtrennen. Das ist jetzt überflüssig.
maike

 

Danke Maike!

Mit diesem Code funktionierts- allerdings importiert und verschiebt er nur jede zweite Datei..

Code:

Was genau meinst du mit

 

Ich vermute, dass die Dir() Funktion nicht damit umgehen kann, dass Dateien nicht mehr vorhanden sind. Am besten das Verschieben in einer zweiten Schleife nochmal extra machen.

Mit dieser Anweisung habe ich den Pfad-Teil des Dateinamens entfernt, der ja durch den neuen Pfad ersetzt wird. Wenn der Pfad aber sowieso nicht in aktDatei enthalten ist, kann man sich das sparen.
maike

 

Aber wenn die Dir() damit nicht umgehen kann, würde es doch nicht gezielt jede zweite *.csv überspringen, oder?

feneri

 

Und beim verschieben der .csv an den Dateinamen das aktuelle Datum anzuhängen, sollte auch nicht so das Problem darstellen denke ich oder?

Code:

Das würde ich vor die Schleife einfügen und dann in die "verschiebe in Verzeichnis"- Funktion einfügen, sehe ich das richtig?

Code:

Wo muss ich das jetzt anhängen? .. Hinter das "/")) ?