Kako otvoriti najnoviju datoteku u mapi u programu Microsoft Excel
U slučaju da želite VBA kôd koji će vam omogućiti otvaranje nedavno spremljene datoteke u mapi jednim pritiskom na gumb makronaredbe.
Pitanje): Imam tim od 10 ljudi i hitno tražim makronaredbu koja će mi pomoći u otvaranju najnovije datoteke koju je spremio član tima, tako da ne moram ići putem na kojem je datoteka spremljena.
Moramo slijediti korake u nastavku:
- Kliknite karticu Developer
- Iz grupe kodova odaberite Visual Basic
- Unesite sljedeći kôd u modul radnog lista
Opcija Eksplicitno
Pod najnovija datoteka ()
Zatamni MyPath kao niz
Dim MyFile As String
Zatamni LatestFile As String
Zatamnjivanje Najnovijeg datuma kao datuma
Priguši LMD kao datum
MyPath = "C: \ Korisnici \ Dokumenti \"
Ako je ispravno (MyPath, 1) "\" Tada je MyPath = MyPath & "\"
MyFile = Dir (MyPath & "*.xls", vbNormal)
Ako je Len (MyFile) = 0 Tada
MsgBox "Nisu pronađene datoteke …", vbExclamation
Izlaz iz podv
Završi ako
Učiniti Dok Len (MyFile)> 0
LMD = FileDateTime (MyPath & MyFile)
Ako je LMD> Najnoviji datum Tada
Najnovija datoteka = Moja datoteka
Najnoviji datum = LMD
Završi ako
Moja datoteka = Dir
Petlja
Radne knjige.Otvorite MyPath & LatestFile
Kraj podm
Na ovaj način, pomoću makro koda, moći ćemo otvoriti najnoviju datoteku koju je spremio član tima.
Preuzimanje - Kako otvoriti najnoviju datoteku u mapi - xlsm