Kako odpreti najnovejšo datoteko v mapi v programu Microsoft Excel
V primeru, da želite kodo VBA, ki vam bo omogočila odpiranje nedavno shranjene datoteke v mapi z enim samim klikom na gumb makra.
Vprašanje): Imam ekipo 10 ljudi in nujno iščem makro, ki mi bo pomagal odpreti zadnjo datoteko, ki jo je shranil član ekipe, tako da mi ni treba iti po poti, kamor je datoteka shranjena.
Slediti moramo naslednjim korakom:
- Kliknite zavihek Razvijalec
- V skupini Koda izberite Visual Basic
- V modul delovnega lista vnesite naslednjo kodo
Možnost izrecno
Pod najnovejša datoteka ()
Zatemni MyPath kot niz
Zatemni mojo datoteko kot niz
Zatemni LatestFile As String
Zatemni najnovejši datum kot datum
Zatemni LMD kot datum
MyPath = "C: \ Uporabniki \ Dokumenti \"
Če je desno (MyPath, 1) "\" Potem MyPath = MyPath & "\"
MyFile = Dir (MyPath & "*.xls", vbNormal)
Če je Len (MyFile) = 0 Potem
MsgBox "Datoteke niso bile najdene …", vbExclamation
Zapri pod
Konec Če
Do While Len (MyFile)> 0
LMD = FileDateTime (MyPath & MyFile)
Če je LMD> Najnovejši datum
Najnovejša datoteka = Moja datoteka
Zadnji datum = LMD
Konec Če
MyFile = Dir
Zanka
Delovni zvezki. Odprite MyPath & LatestFile
End Sub
Na ta način bomo z uporabo makro kode lahko odprli najnovejšo datoteko, ki jo je shranil član ekipe.
Prenos - Kako odpreti najnovejšo datoteko v mapi - xlsm
