Kā atvērt jaunāko failu mapē programmā Microsoft Excel
Ja vēlaties VBA kodu, kas ļaus atvērt mapē nesen saglabāto failu, vienkārši noklikšķinot uz makro pogas.
Jautājums): Man ir 10 cilvēku komanda, un es steidzami meklēju makro, kas man palīdzētu atvērt jaunāko komandas dalībnieka saglabāto failu, lai man nebūtu jāiet pa ceļu, kurā fails tiek saglabāts.
Mums jāveic šādas darbības:
- Noklikšķiniet uz cilnes Izstrādātājs
- Kodu grupā atlasiet Visual Basic
- Darblapas modulī ievadiet šādu kodu
Skaidrs variants
Jaunākais apakšfails ()
Dim MyPath kā virkne
Dim MyFile kā virkne
Dim LatestFile kā virkne
Dim LatestDate kā datums
Dim LMD kā datums
MyPath = "C: \ Users \ Documents \"
Ja pareizi (MyPath, 1) "\" Tad MyPath = MyPath & "\"
MyFile = Dir (MyPath & "*.xls", vbNormal)
Ja Len (MyFile) = 0 Tad
MsgBox "Faili netika atrasti …", vbExclamation
Iziet no apakšnodaļas
Beigas Ja
Darīt, kamēr Len (MyFile)> 0
LMD = FileDateTime (MyPath & MyFile)
Ja LMD> Jaunākais datums Tad
LatestFile = Mans fails
Pēdējais datums = LMD
Beigas Ja
MyFile = Rež
Cilpa
Darbgrāmatas. Atveriet MyPath & LatestFile
Beigt apakš
Tādā veidā, izmantojot makro kodu, mēs varēsim atvērt jaunāko komandas dalībnieka saglabāto failu.
Lejupielādēt - Kā atvērt jaunāko failu mapē - xlsm