Excel2010 - zuletzt angelegten Ordner finden
18.01.2013 14:28:00
Rene
leider ist meine Archiv-Suche nach folgendem Thema erfolglos geblieben, daher der Beitrag.
Folgender Sachverhalt: jeden Monat wird unter einem festen Pfad ein neuer Ordner für den vergangenen Monat angelegt. Ich habe ein fertiges Makro, welches aber immer auf den gleichen Ordner zugreift. Gibt es eine Möglichkeit, das ein Befehl ausgeführt wird, der nach dem zuletzt angelegten Ordner sucht, ohne das dabei der Ordnername oder das Änderungsdatum des Ordners bekannt sind?
Mein Makro ist unten aufgeführt.
Vielen Dank Euch allen schonmal!
rene
Sub Dateien_oeffnen()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
ChDrive "C"
ChDir "C:\test\2012\1012" 'Bsp. in diesem Fall wäre der Oktober 2012 - hier soll _
eben der zuletzt angelegte Ordner gefunden werden und das folgende Makro soll dann darauf zugreifen
Dim Datei As String
Dim PFAD As String
PFAD = "C:\test\2012\1012"
Datei = Dir(PFAD & "BK*.xls")
Do While Datei ""
Application.Workbooks.Open Datei
Call Aufbereiten
ActiveWorkbook.SaveAs FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWorkbook.Close True
Datei = Dir()
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub