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
