Kuidas avada uusim fail kaustas Microsoft Excelis
Kui soovite VBA -koodi, mis võimaldab teil kaustas hiljuti salvestatud faili avada vaid makro nupu klõpsuga.
Küsimus): Mul on 10 -liikmeline meeskond ja otsin kiiresti makro, mis aitaks mul avada meeskonnaliikme poolt salvestatud uusima faili, nii et ma ei peaks minema seda teed, kuhu fail on salvestatud.
Peame järgima järgmisi samme:
- Klõpsake vahekaarti Arendaja
- Valige koodirühmas Visual Basic
- Sisestage töölehe moodulis järgmine kood
Valik Selge
Uusim fail ()
Hämardage MyPath stringina
Dim MyFile kui string
Dim LatestFile kui string
Dim LatestDate kui kuupäev
Dim LMD kui kuupäev
MyPath = "C: \ Users \ Documents \"
Kui õige (MyPath, 1) "\" Siis MyPath = MyPath & "\"
MyFile = Dir (MyPath & "*.xls", vbNormal)
Kui Len (MyFile) = 0 Siis
MsgBox "Faile ei leitud …", vbExclamation
Välju sub
Lõpp Kui
Tehke samal ajal Len (MyFile)> 0
LMD = FileDateTime (MyPath & MyFile)
Kui LMD> Viimane kuupäev Siis
LatestFile = Minu fail
Viimane kuupäev = LMD
Lõpp Kui
MyFile = Rež
Loop
Töövihikud. Avage MyPath ja LatestFile
End Sub
Sel viisil saame makrokoodi kasutades avada meeskonna liikme poolt salvestatud uusima faili.
Laadi alla - Kuidas avada uusim fail kaustas - xlsm