Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
608to612
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
608to612
608to612
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Dateiöffnen in Abhängigkeit des Erstellungsdatums

Dateiöffnen in Abhängigkeit des Erstellungsdatums
13.05.2005 08:40:41
esser0107@compuserve.de
Guten Morgen Excel-Gemeinde,
habe zu meinem Wunsch nichts im Archiv gefunden, deshalb hier meine Frage:
In einem festen Verzeichnis habe ich eine grosse Anzahl von gleichartigen Excel-Files. Ich würde mir in der Personl.xls gerne einen Shortcut einrichten, der dann immer die Datei öffnet, die das jüngste Erstellungdsdatum hat.
Hat hierzu jemand vielleicht eine Idee ?
Vielen Dank im voraus und Gruss an das tolle Forum.
eres

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

Betreff
Datum
Anwender
Anzeige
AW: Dateiöffnen in Abhängigkeit des Erstellungsdatums
13.05.2005 09:30:11
u_
Hallo,

Sub juengste_Datei_oeffnen()
Dim FS As Object, drv As Object, Datei As Object
Dim dteMax As Date, strDatei As String, strPfad As String
dteMax = DateValue("1.1.1900")
strPfad = "n:\test\archiv"
Set FS = CreateObject("scripting.filesystemobject")
Set drv = FS.getfolder(strPfad)
For Each Datei In drv.Files
If Datei.Name Like "*.xls" Then
If Datei.datecreated > dteMax Then
strDatei = Datei.Name
dteMax = Datei.datecreated
End If
End If
Next Datei
Workbooks.Open (strPfad & "\" & strDatei)
End Sub

Gruß
Geist ist geil!
Anzeige
1000 Dank, einfach Genial. (oT)
13.05.2005 10:00:35
eres
.

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige