Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
744to748
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
744to748
744to748
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

aktuellste Datei öffnen

aktuellste Datei öffnen
19.03.2006 11:42:09
thomas
Hallo alle zusammen,
ich habe bei meiner Recherche nachstehenden Code gefunden, indem immer die aktuellste Datei in einer MSG-Box angezeigt wird.

Sub Neueste_Datei()
Dim sName       As String
Dim dDatum      As Date
Dim Pfad        As String
Dim dDatum_neu  As Date
Dim sDatei      As String
Pfad = "C:\Test\Daten\"
sName = Dir(Pfad & "*.csv")
dDatum_neu = FileDateTime(Pfad & sName)
sDatei = sName
Do While sName <> ""                     ' Schleife beginnen.
sName = Dir
If sName <> "" Then
dDatum = FileDateTime(Pfad & sName)
If dDatum > dDatum_neu Then
dDatum_neu = dDatum
sDatei = sName
End If
End If
Loop
MsgBox "die neueste Datei heißt: " & sDatei & " und ist vom " & dDatum_neu
End Sub

Wie kann ich nun aber statt die Anzeiger in einer MSG-Box diese Datei öffnen?
Wer kann mir bitte helfen.
Vielen Dank uns Gruß
Thomas

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Workbooks.Open (Pfad & sDatei)
19.03.2006 14:12:29
Uwe
Hi Thomas,
müsste klappen mit:
Workbooks.Open (Pfad & sDatei)
Gruß
Uwe
(:o)
Danke klappt. o.T.
19.03.2006 14:16:05
thomas

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige