ich habe recht erfolgreich u.a. Makro in der Anwendung, welches in einem bestimmten Verzeichnis immer die zuletzt gespeicherte Datei oeffnet. Da in einem bestimmeten Verzeichnis auch andere (laufend aktalisierte ) Dateien stehen, läßt sich dies Makro hier nicht einsetzen, es sei denn man kann das Makro insofern aufpeppen, daß im Makro der Teil eines Dateinamens der immer gleich bleibt darstellt.
Wer kann beim peppen helfen?
mit Dank
Walter
'die zuletzt gespeicherte Datei wird geöffnet
Sub knappe_Fahrzeuge()
Dim objFSO As Object, objFo As Object, objF As Object
Dim strPath As String, strLastFile As String
Dim dblMax As Double
strPath = "Y:\1\5_Fzg Wochenmldg" ' das zu durchsuchende Verzeichnis
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFo = objFSO.GetFolder(strPath)
For Each objF In objFo.Files
If objF.DateLastModified > dblMax Then
dblMax = objF.DateLastModified
strLastFile = objF.Path
End If
Next
If strLastFile "" Then Workbooks.Open (strLastFile)
Set objFo = Nothing
Set objFSO = Nothing
End Sub