VBA zu öffnen Letzte Datei in Ordner
So öffnen Sie die neueste Datei in einem Ordner in Microsoft Excel
Wenn 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 beim Öffnen der neuesten vom Teammitglied gespeicherten Datei hilft, 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
Sub NewestFile ()
Dim MyPath As String
Dim MyFile As String
LatestFile als String dimmen
Dim LatestDate As Date
Dim LMD As Date
MyPath = „C: \ Benutzer \ Dokumente \“
Wenn richtig (MyPath, 1) <> „\“ Dann MyPath = MyPath & „\“
MyFile = Dir (MyPath & „* .xls“, vbNormal)
Wenn Len (MyFile) = 0, dann
MsgBox „Es wurden keine Dateien gefunden …“, vbExclamation
Sub beenden
End If
Do While Len (MyFile)> 0
LMD = FileDateTime (MyPath & MyFile)
Wenn LMD> LatestDate Then
LatestFile = MyFile
LatestDate = LMD
End If
MyFile = Dir
Schleife
Workbooks.Open MyPath & LatestFile
End Sub
Auf diese Weise können wir mithilfe von Makrocode die letzte vom Teammitglied gespeicherte Datei öffnen.
