Office: (Office 2010) immer letzte Datei (Datum) einlesen...

Hallo Kyron9000,
leider läuft das bei mir noch nicht, denn es scheint eine Bibliothek zu fehlen.
Die in der Hilfe dargestellte "Microsoft DAO 3.5 Object Library" läuft bei mir als "Microsoft DAO 3.6 Object Library".
Welche noch fehlen kann weiß ich leider nicht.

 

...habe eben bemerkt, das Dim oFile As ObjectfncFileObjects ist ein Kopierfehler!
nur das verwenden Dim oFile As Object!!

 

Hallo Kyron9000,
hab es so umgeändert, bringt nun den Komp.-Fehler nicht mehr, aber leider schreibt er (trotz das Verz. voll ist) Datei nicht gefunden.
Habe die Zeile noch geändert > sTyp = "*.xlsx" (ist das so richtig?)

 

ok, in der Fa. hat es bei mir auch nicht mehr gefunkt Win 07 und Access 2007, zu Hause aber schon...
da habe ich Win10 und Access 2016?
Na ja, dann noch einmal, das funkt jetzt auch in der Fa.!
oFld.Path hat es hier nicht richtig verwendet ohne Backslash... kA wieso zu Hause schon *Smilie
Man kann auch noch den Dateinamen abfragen z.B.
Code:

Code:

 

Sag mal.... kann es sein das ich bei dem Ordner keinen Netzwerkpfad eintragen darf???
Er schreibt wieder das er nix findet. ich kopiere mir mal das ganze in ein lokales LW. Im übrigen Du schreibst : " sOrdner = "C:Test
muss das nicht: sOrdner = "C:Test" heißen? (warum bekomme ich den Backslash hinter C: hier nicht rein?)
Habe derzeit versucht einen Netzwerkpfad dort unter zu bringen.
Ich wollte kein festesn LW mit Ordner angeben, denn ich weiß nicht wie man draußen die LWe verbunden hat, vielleicht haben andere, einen anderen Buchstaben vergeben.

 

Hallo
1. die fehlende Backslashes entstehen durch die Buggy forumssoftware hier.
2. nicht falsch verstehen aber evtl ziehste dir noch mal den Code von Nouba rein, denn hier kannst du mit den wildcards und der Präfix ein wenig spielen, um die von dir hier gezeigten unterschiedlichen Dateinamensformate verarbeiten zu können. Alternativ und weil wir hier in Acc sind könnte die Ermittlung der last five Files ggf mit einer Abfrage über eine Txtdatei bewerkstelligt werden.

 

...die Backslash musst schon einfügen, im Forum wird das nicht angezeigt!

Den Rest habe ich schon erklärt...
Code:

..."C:BackslashTestBackslash"
und... Code:

ich habe es bei mir mit 5 getestet!

PS: @daolix - anders kann man immer alles machen, wenn man will!

 

...bei mir schaut das Ergebnis so aus!

 

...habe Nouba seine Version getstet, bei mir kommen die alten Dateien
Code:

Es gibt aber eine Datei...
Code:

Habe es auch mit einer Schleife 1-5 geststet... egal bleibt bei den alten Dateien.
Was sollte auch anders werden.

 

Alfred, Nouba bezieht sich nur auf den ursprünglich geforderten Anspruch, den Dateinamen mit der höchsten Ziffernfolge im Namen vor der Endung zu ermitteln. Stell Dir nur die Szenerie vor, dass zwischenzeitlich jemand eine ältere Version der Datei öffnet und wieder speichert.

 

Achso das Datumsformat im Dateinamen wird ein weiteres mal geändert. Jut kann man machen und der User hat seinen Spass, nur - die isoform hat halt vorteile.

Das ist jetzt aber irgendwie ein Apfel Birnen vergleich.

 

Hallo @Nouba, habe ich nicht gelesen (kann's es auch überlesen haben),
dass sich diese Zahl immer aufsteigend ändert... wobei es möglich ist.
Außerdem, sollten diese Dateien nicht verschoben werden?

Dann wird es egal sein ob eine alte Datei geöffnet und gespeichert wird, denke ich mal.
Auch eine Abfrage des Datums im Dateiname wäre denkbar und leicht zu eruieren.
Und, man kann das "Verschieben" in den Code mit einfügen, dass man nicht extra daran denken muss!?
Mir soll aber alles recht sein, mich hat es nur interessiert, deshalb meine Überlegungen!

PS: @daolix, ich habe das Datum im Dateinamen nicht geändert, oder vergessen zu ändern, weil es in meinem Code absolut egal ist! OK, oder nicht richtig?
Und, den Apfel- und Birnenvergleich verstehe ich nicht.

 

Hallo, ich bin gerade am platzen.... *mad.gif*
Man möchte ein Anfügen von Datensätzen, bietet aber KEINE Möglichkeit das ganze zu indizieren. Somit sind doppelte Datensätze schnell möglich. Die Struktur der Daten ist leider so das heute der gleiche DS da stehen kann wie morgen und das wäre dann sogar richtig. Mich zereißte gerade, könnte ... Ihr wisst schon. Alle furznasenlang kommt einer und ändert die Vorgaben.

Wir machen hier mal einen Cut und ich rede mit den verantwortlichen erst mal das es so nicht geht.

Leute die das mitlesen und eventuell eine Lösung für ihr Problem ableiten wollen merken erst sehr spät das sich eine ganz andere Lösung ergibt.
Das wäre unfair denen gegenüber. Da spreche ich nicht mal von Euch, Ihr habt euch so große Mühe gegeben mir zu helfen.

Jetzt muß ich das ganze doch anders machen. Die letzte Datei soll es immer sein, machen wir ja gerade.
Nouba hat aber Recht, mit "Stell Dir nur die Szenerie vor, dass zwischenzeitlich jemand eine ältere Version der Datei öffnet und wieder speichert."
Einzig der Dateiname wird sich nicht ändern. Dann juckt auch mein Problem mit der Bezeichnung (weiter oben,- Std,Min,Sec im Dateinamen löschen) nicht.
Darauf werde ich nun aufsetzen und eine Liste mitführen der bereits eingelesenen Dateien. Eine darin gelistete Datei wird dann nicht mehr Importiert und angefügt.
Ich denke das ist die sicherere Methode.
Ich hoffe das ich in der Lösungsart wieder mit Eurer Hilfe rechnen kann.

Ich würde gern einen neuen Thread starten der vom Thema besser ist.
z.B. " Excel-Datei über Dateinamen importieren, Duplikate vermeiden"

Was meint Ihr dazu?

 

Ja, für jede Import-Aktion einer Deiner 5 Stammdateien einen Datensatz anzulegen (dort könnte man ja wiederum ein echtes Datum aus dem Dateinamen generieren) klingt vernünftig. Damit ließen sich auch alle Dateien im Ordner ermitteln, die nocht importiert wurden - egal wie alt sie sind und welche Ziffernfolge sie tragen.

 

...Tabelle finde ich unnötig. Denke, dass das Datum aus den
Dateinamen genügen würde! Was soll sich daran ändern?

PS:
na ja, wenn es eventuell mehrere Mitarbeiter erstellen,
dass nichts doppelt importiert wird, ist es ev. nicht schlecht mit einer Tabelle.