Zuletzt gespeicherte Datei öffnen

Vielleicht wollen Sie genau da weiter machen, wo der Kollege oder die Kollegin am Vortag aufgehört hat oder es gibt andere Gründe, dass Sie genau die Datei öffnen wollen, die in einem definierten Ordner zuletzt gespeichert worden ist. Da bietet sich folgender Code (unbekannter Ersteller) an:

Sub DateiLetztesSpeicherdatum()
  Const strPath As String = "C:\Test\"  'Anpassen
  Dim strFile As String, strFile2Open As String, dteFile As Date, dteLast As Date
  strFile = Dir$(strPath & "*.xlsm")   'Extension anpassen
  If strFile <> "" Then
    Do
      dteFile = FileDateTime(strPath & strFile)
      If dteFile > dteLast Then
        strFile2Open = strFile
        dteLast = dteFile
      End If
      strFile = Dir$
    Loop Until strFile = ""
    Workbooks.Open strPath & strFile2Open
  Else
    MsgBox "Keine passende Datei gefunden!"
  End If
End Sub 

▲ nach oben …

Dieser Beitrag wurde unter Allgemein veröffentlicht. Setze ein Lesezeichen auf den Permalink.