Datei öffnen mit max. Datum

• Datei öffnen mit max. Datum von Peter vom 01.03.2005 19:29:28
• AW: Datei öffnen mit max. Datum - von Hajo_Zi am 01.03.2005 19:50:24
  • AW: Danke- Datei öffnen mit max. Datum - von Peter am 01.03.2005 20:28:07

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

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.



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

Beiträge aus den Excel-Beispielen zum Thema "tabellen einfügen HILFE!!!!!!!!"