Office: neueste Datei in Ordner öffnen

Moin, moin,

habe folgendes Makro aus Bernd Helds Excel-VBA-Kompendium:

Private Sub Button_Click()
Const Ordner as string = "C:\Musterordner"

Mappe = Dir(Ordner & "\*.xls")
Dat = FileDateTime(Ordner & "\" & Mappe)

Do Until Mappe = ""

End If
Mappe = Dir()Loop
Workbooks.Open Zmappe

Leider funktioniert es nicht immer. Wenn in dem Ordner vier Dateien von vier verschiedenen Tagen sind, kommt trotzdem die Fehlermeldung, dass die Datei nicht gefunden wurde. Wenn ich jetzt aber eine neue Excel-Datei in dem Ordner speicher oder eine vorhandene Datei umbenenne, funktioniert der Code.

Ich kann leider kein System erkennen, dass dahinter steckt. Weiß jemand, woran das liegt, bzw. gibt es nocht andere Möglichkeiten die neueste Datei zu öffnen.

Im Voraus vielen Dank.

Gruß
Demian

:)

 

Hallo Demian,

Code:

 

Moin Hajo,

vielen Dank für die schnelle Antwort. Funktioniert einwandfrei. Aber im Prinzip ist es bis auf die Schleife doch so ziemlich dasselbe. Ich verstehe einfach nicht, warum der Code bei mir nur willkürlich läuft.

Ist denn irgendwas falsch an dem Code???

Gruß
Demian

 

Hi,
dieser Beitrag ist schon fast das was ich gesucht habe.
Ich hätte gerne folgendes:
Wenn ich das Makro starte, dann soll excel mich mit einer Inputbox auffordern etwas einzugeben. Da gebe ich dann den Dateinamen ohne Endung ein.
Dann soll excel in allen Unterordern auf den Laufwerken X: und W: nach dieser Datei suchen.
Auf meienm Computer sieht es z.B. so aus

X:\aaa\aaa.txt
X:\aaa_2\aaa_2.txt
X:\aaa_3\aaa_3.txt
X:\bbb\bbb.txt
X:\bbb_2\bbb_2.txt
W:\ccc\ccc.txt
W:\ccc_2\ccc_2.txt

also wenn ich aaa eingebe bei der inputbox, dann soll er mir logischerweise die neuste Datei anzeigen welche aaa enthält. In diesem Fall wäre das die aaa_3.
Diesen Dateinamen, bräuchte ich dann ohne das txt als Wert in Zelle A1.
Danke