Herbers Excel-Forum - das Archiv

Datei öffnen mit max. Datum

Bild

Betrifft: Datei öffnen mit max. Datum
von: Peter

Geschrieben am: 01.03.2005 19:29:28
Hallo
Meine Dateien sind z.B. unter C:\Probe\"Testdatei-09.02.05.xls" gespeichert.
Wie kann ich die Datei im o.g. Pfad öffnen,
die in ihrem Namen das größte Datum hat.
für Hilfe wäre ich dankbar.
Peter
Bild

Betrifft: AW: Datei öffnen mit max. Datum
von: Hajo_Zi

Geschrieben am: 01.03.2005 19:50:24
Hallo Peter,
muß man den den Dateinamen auswerten oder reicht es die älteste Datei feststellen?
Sub Dateiliste_Neu()
'   erstellt von Hajo.Ziplies@web.de
' <a href="http://home.media-n.de/ziplies/">http://home.media-n.de/ziplies/</a>
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 Dateien\Hajo\"
StrTyp = "*.xls"
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

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.


Bild

Betrifft: AW: Danke- Datei öffnen mit max. Datum
von: Peter
Geschrieben am: 01.03.2005 20:28:07
Ich bedanke mich. Natürlich reicht die Eigenschaft auch aus.
Peter
 Bild