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

Arbeite einfach, direkt und schnell. Deine Planungen scheinen damit nicht so viel zu tun zu haben.

Code:

Es werden alle Dateien erfasst die dem gewählten Filter entsprechen, hier allso alle Dateien mit der Endung xls.
Rate mal, was bei folgendem Muster ausgewertet würde:
Code:

Sowie: Bis hierhin werden nur die Dateien im Windowsverzeichnis gelesen. Mit Tabellennamen in einer DB hat das noch gar nichts zu tun. Das würde dann vom Importvorgang behandelt.
Die Dir-Schleife würde übrigens schon vor einem Tag gezeigt => Beitrag #3 von Nouba.

WARUM NICHT ?
Selber anschauen soll unheimlich beim Verstehen helfen, wenn das eigene Abstarktionsvermögen noch nicht ausreicht.

Nebelwolke.
Maßnahmen würde ich von der Gesamtaufgabe ableiten, nicht von der Behauptung von jemanden, der noch einiges zu lernen hätte.

 

So, habe nun folgendes Script gefunden.

Habe soeben das ganze getestet.... Hammer der sucht die letzte bzw. aktuellste Datei,
Allerdings halt nur die aktuellste überhaupt.
Nun müssten alle 5 Dateien eingeschlossen werden.
Könnte man das nicht über deren stets gleichen Dateibezeichnungen (ohne Datun u.Uhrzeit) machen?

Wie wäre es wenn ich eine Tabelle mit den Namensanfängen die betroffen sind erstelle und die wird zur Auswahl genutzt?
Hätte auch den Vorteil das man so individuell bliebe und das auch für was anderes nutzen könnte.
Soll eine mal nicht mehr dabei sein fliegt sie halt aus der Liste raus und gut....

Option Explicit

Sub Dateiliste_Neu()
' erstellt von Hajo.Ziplies@web.de
' jüngste Datei feststellen
' http://home.media-n.de/ziplies/
Dim strVerzeichnis As String
Dim StrDatei As String
Dim I As Integer
Dim StrTyp As String
Dim Dateiname As String
Dim Dateiname_neu As String
Dim Zeit As Date
strVerzeichnis = "D:Eigene DateienHajo"
StrTyp = "*.xlsx"
Dateiname = Dir(strVerzeichnis & StrTyp)
Dateiname_neu = Dateiname
Zeit = FileDateTime(strVerzeichnis & Dateiname)
Do While Dateiname ""
If Zeit < FileDateTime(strVerzeichnis & Dateiname) Then
Zeit = FileDateTime(strVerzeichnis & Dateiname)
Dateiname_neu = Dateiname
End If
Dateiname = Dir
Loop
MsgBox " Die jüngste Datei ist " & Dateiname_neu
End Sub

Müsste vielleicht mal entspr. eingerückt und kommentiert werden.

Müsste nun noch umgeschraubt werden das alle 5 Dateien betroffen sind.
Nun fehlt mir allerdings das Wissen daraus etwas zu machen.
Es schein genau das zu sein was ich suche. Ob das so ist, könnt nur Ihr Könner sagen. (stammt übrigens aus diesem Forum)

 

Da bisherige Antworten UMSONST waren laut ausgelöstem Feedbackfeuer, erschließt sich mir nicht, das dies bei folgenden anders wäre.

 

Habe ich etwas übersehen???
Ich will natürlich antworten, deswegen stelle ich ja auch ein was ich selber schon so gefunden habe.
Ich bin an jeder Antwort interessiert. Ich gehe noch mal durch... weis gerade wirklich nicht wo ich geschlampt habe.

Mei bin ich.... darf ich ja hier nicht sagen, muß gekommen sein als ich das Fenster noch nicht wieder aktualisiert hatte.
Entschuldigung !

 

So habe den Test gemacht und die 5 Dateien in das entspr. Verz. gelegt die eingelesen werden sollen.
Habe mit F8 den Durchlauf und die Schleife beobachtet... ist 5 mal durch und dann wurde sie beendet. Entspr. also der Anz. der Dateien.
In dem Fall würde aber stets das ganze Verz. ausgelesen.

Die Faulheit der Leute ist aber so groß, das sie das verschieben der dann bereits eingelesenen Dateien "vergessen" also füllt sich das Verz. weiter. Schön nicht ! *rolleyes.gif*

Ist es da nicht besser dieses Script hier welches die letzte/aktuellste Datei findet mit einzubeziehen.
Leider fehlt mir dazu das Wissen es entsprechend einzufügen, das es funktioniert habe ich ja schon beschrieben.

Ich tanze hier auf drei Hochzeiten, deswegen ist hier was unter gegangen.

 

Hallo,

...würde mich wundern , wenn dein Code funktioniert...
Grund, fehlender Funktion FileDateTime

Hast vermutlich übersehen einzufügen!

Ich habe es aber getestet, der Code bringt die letzte Datei!

Das letzte Datum feststellen, dann für dieses Datum alle Dateien in einer Schleife aufrufen.
Sollten dann eben nur 5 sein.

Wenn es mehr als diese 5 gibt, muss man noch die Datennamen (Datum im Namen usw.) feststellen.
Wird nicht so ein Problem sein, denke ich *wink.gif*

 

Habe gerade einen Dämpfer bekommen, (nicht von Euch !) was machen Sie sich solche Arbeit.....
Muß man echt nicht verstehen.
Ich verfolge das Thema aber weiter, dann halt für mich. *mad.gif*

 

Code:

Vielleicht kannst Du der Stufe des interessierten Lesens die Stufe des Wahrnehmens und Verstehens hinzufügen. Das automatisierte Verschieben ist sowohl im Code als auch in umgebenden Text enthalten.

 

Danke.

 

Hallo,
habe mir deine Frage nochmal angesehen und dir diesen Code zusammengestellt.
Bei mir funktioniert er, wenn bei dir nicht, muss ev. noch etwas ergänzt werden.
Hätte es nur mit FSO zusammenstellen können, aber du hattest schon einen Vorschlag eingefügt und denke,
dass du dich damit besser auskennst.
Musst eben testen! Hoffe es gibt ein Feetback *Smilie
Code:

PS: Debug.Print kannst du dir im Direktfenster ansehen (Strg+G)

 

Hallo Kyron9000,
so da bin ich wieder... konnte mich leider nicht früher melden denn ich war wegen des Unwetters am Fr. nicht hier. Durfte von Do.-Fr. die Nacht auf dem Bhf verbringen... irre schön, wer also mal einen schönen Urlaub machen will.

Schön das Du dir noch mal Gedanken gemacht hast. Ich schau mal das ich es zum laufen bekomme. Melde mich auf jedem Fall.

 

Hallo,

na ja, dann musst aber die Adresse bereitstellen, eventuell kann ich meine Frau zu einem Kurzurlaub überreden *grins

 

Hallo Kyron9000,
Ich habe das Script nun einmal eingefügt und laufen lassen. Die Liste habe ich mir mit Strg+G anzeigen lassen. Da passt was nicht. Er listet drei mal die selbe Datei und fünf mal das leere Verz. aus, also fünf Zeilen ohne Datei dahinter...

Da habe ich mal eine Frage zum einlesen.
Bei folgender Scipt-Zeile habe ich das Problem, das sie nur eine Datei mit folgendem Format einließt.

DateiNr1_JJJJ-MM-DD.xlsx

vpath = Left(Form_frm_MAIN.EinleseDatei.Text, intsfmpos - 1) & SFM & Format(dDate, "YYYY-MM-DD") & ".xlsx" 'Right(Form_frm_MAIN.EinleseDatei.Text, 1)

Die Datei hat aber das Format:
DateiNr1_JJJJ-MM-DD-HH-MM-SS.xlsx
Ich muss immer die Datei umbenennen, die Std,Min,Sec weglöschen - dann wir eingelesen.
Die Datei kommt aber so aus einem anderen System so heraus.

Jetzt habe ich versucht folgene Änderung mit einzutragen:
vpath = Left(Form_frm_MAIN.EinleseDatei.Text, intsfmpos - 1) & SFM & Format(dDate, "YYYY-MM-DD-HH-MM-SS") & ".xlsx" 'Right(Form_frm_MAIN.EinleseDatei.Text, 1)
Nur da wird nix bei eingelesen.
Gibt es da eine andere Möglichkeit?

 

Berlin Hbf. ist ne Reise wert.
Eine Stille, kaum Menschen, man wird nicht von Ansagen belastet.
Kannst dir selbe einen Kopf machen wie es nun weiter geht.... alles gut.
Ab und zu werden Hotelzüge bereit gestellt, super Sache.
Lernst fremde Sprachen, den Geruch deines Nachbar, seine Lieblingsspeisen,
sein eventuell vorhandenes Benehmen, die Atemaussetzer im Schlaf usw. kennen.

*grins

 

... hört sich gut an! *Smilie

zum Thema, dieses Fehlverhalten hatte ich auch, als ich die Funktion in die Arbeit mitnahm zum 2.x testete, man weiß ja nie.
Dachte, wieso funktioniert es da nicht... Grund ich hatte keine xlsx im Ordner *Smilie nur xls Dateien.
Geändert und hat funktioniert!
Einen kompletten FSO-Code kannst auch testen.
Habe die Namen großteils geändert.
Code: