Jak otworzyć najnowszy plik w folderze w programie Microsoft Excel
Jeśli potrzebujesz kodu VBA, który pozwoli ci otworzyć ostatnio zapisany plik w folderze za pomocą jednego kliknięcia przycisku makra.
Pytanie): Mam zespół 10 osób i pilnie szukam makra, które pomoże mi w otwarciu najnowszego pliku zapisanego przez członka zespołu, abym nie musiał iść ścieżką, w której plik jest zapisany.
Musimy wykonać poniższe kroki:
- Kliknij kartę Deweloper
- Z grupy Kod wybierz Visual Basic
- Wprowadź następujący kod w module arkusza roboczego
Opcja Wyraźna
Sub najnowszy plik()
Dim MyPath As String
Przyciemnij mój plik jako ciąg
Dim najnowszy plik jako ciąg
Dim Najnowsza data jako data
Przyciemnij LMD jako datę
MojaŚcieżka = "C:\Użytkownicy\Dokumenty\"
Jeśli Right(MyPath, 1) "\" Wtedy MyPath = MyPath & "\"
MójPlik = Dir(MojaŚcieżka i "*.xls", vbNormal)
Jeśli Len(MyFile) = 0 Wtedy
MsgBox "Nie znaleziono plików… ", vbExclamation
Wyjście Sub
Zakończ, jeśli
Rób, gdy Len(MyFile) > 0
LMD = FileDateTime (MojaŚcieżka i MójPlik)
Jeśli LMD > Najnowsza data, wtedy
Ostatni plik = Mój plik
Najnowsza data = LMD
Zakończ, jeśli
MójPlik = Katalog
Pętla
Workbooks. Otwórz MyPath i LatestFile
Napis końcowy
W ten sposób za pomocą kodu makra będziemy mogli otworzyć ostatni plik zapisany przez członka zespołu.
Pobierz - Jak otworzyć najnowszy plik w folderze - xlsm