VBA zum Öffnen der neuesten Datei im Ordner

Anonim

So öffnen Sie die neueste Datei in einem Ordner in Microsoft Excel

Falls Sie einen VBA-Code wünschen, mit dem Sie die zuletzt gespeicherte Datei im Ordner mit nur einem Klick auf die Makroschaltfläche öffnen können.

Frage): Ich habe ein Team von 10 Personen und suche dringend nach einem Makro, das mir hilft, die neueste Datei zu öffnen, die von einem Teammitglied gespeichert wurde, damit ich nicht den Pfad gehen muss, in dem die Datei gespeichert ist.

Wir müssen die folgenden Schritte ausführen:

  • Klicken Sie auf die Registerkarte Entwickler
  • Wählen Sie in der Gruppe Code die Option Visual Basic . aus

  • Geben Sie den folgenden Code in das Arbeitsblattmodul ein

Option explizit

Unter neueste Datei()

Dim MyPath als String

Dim MyFile As String

Dim LatestFile As String

Dim LatestDate As Date

LMD als Datum dimmen

MyPath = "C:\Benutzer\Dokumente\"

If Right(MyPath, 1) "\" Then MyPath = MyPath & "\"

MyFile = Dir(MyPath & "*.xls", vbNormal)

Wenn Len(MyFile) = 0 Then

MsgBox "Es wurden keine Dateien gefunden…", vbExclamation

Abo beenden

Ende Wenn

Do While Len(MyFile) > 0

LMD = FileDateTime(MyPath & MyFile)

Wenn LMD > LatestDate Then

LatestFile = MyFile

Letztes Datum = LMD

Ende Wenn

MyFile = Dir

Schleife

Workbooks.Open MyPath & LatestFile

End Sub

Auf diese Weise können wir mithilfe von Makrocode die neueste vom Teammitglied gespeicherte Datei öffnen.

Download - So öffnen Sie die neueste Datei in einem Ordner - xlsm