Datei finden
falkitho@web.de
ich bastel schon seit längerer Zeit an einem Excel Tool und bin nun an meine Grenzen gestoßen. Ich hoffe ihr könnt mir weitehelfen.
Nun zu meinem Problem:
In einem Verzeichniss liegen Dateien, die immer mit dem gleichen Namen beginnen, sich jedoch im Datum und in der Revisionsnummer unterscheiden. Bspw. TFP_24.12.2010_REV1
Sobald ich die Datei verändere macht ein anderes Makro mir automatisch REV2 daraus. Nun soll das untenstehende Makro die letzte aktuelle Datei (REV Nummer) zu dem von mir eingestellte Datum herausfiltern. Würde ich also als Datum den 24.12.2010 angeben, sollte die Datei TFP_24.12.2010 mit der höchsten REV Nummer übergeben werden. Mein Makro sieht folgendermaßen aus. Die Variablen habe ich als Public in einem anderen Modul deklariert.
datum = Date
my_month = Format(datum, "mm")
my_year = Format(datum, "yyyy")
datum2 = (Worksheets("Tabelle1").Range("B2")) ' Hier übergeb ich das Datum
pfad = Worksheets("Sys_Parameter").Range("B8") ' Hier übergebe ich einen Teil des Verzeichnisspfades
masterpfad = Worksheets("Sys_Parameter").Range("B2") ' Hier übergebe ich einen Teil des Pfades
dateiname2 = Worksheets("Sys_Parameter").Range("C8") ' Hier lege ich den Dateinamen (TFP_ fest)
AktuellstesDatum = DateValue("1.1.2000")
'neuestedatei = ""
'Set FS = CreateObject("scripting.filesystemobject")
'Set Drv = FS.GetFolder(masterpfad + pfad + "\" + my_year + "\" + my_month + "\")
'
'Index = 1
'r = CStr(Index)
'
'For Each Datei In Drv.Files
'For n = 1 To 10
' If Datei.DateLastModified > AktuellstesDatum And Datei.Name = dateiname2 + datum2 + "_REV" + r + ".xls" Then
' Index = Index + 1
' r = CStr(Index)
' neuestedatei = Datei.Name
' AktuellstesDatum = Datei.DateLastModified
' End If
'Next
'n = n + 1
'Next
Ich erhalte immer die letzte aktuelle Datei, egal welches Datum diese beinhaltet. Ich verzweifle, bitte helft mir.
DANKE und noch einen schönen 2. Weihnachtstag!