Kaip atidaryti naujausią failą aplanke „Microsoft Excel“
Jei norite VBA kodo, kuris leis jums atidaryti neseniai išsaugotą failą aplanke tik spustelėjus makro mygtuką.
Klausimas): Turiu 10 žmonių komandą ir skubiai ieškau makrokomandos, kuri padėtų man atidaryti naujausią komandos nario išsaugotą failą, kad nereikėtų eiti tuo keliu, kuriame failas išsaugotas.
Turime atlikti šiuos veiksmus:
- Spustelėkite skirtuką Kūrėjas
- Kodo grupėje pasirinkite „Visual Basic“
- Į darbalapio modulį įveskite šį kodą
Pasirinkimas aiškus
Sub NewestFile ()
„Dim MyPath“ kaip eilutė
„Dim MyFile“ kaip eilutė
Dim LatestFile kaip eilutė
Užtemdyti paskutinę datą kaip datą
Dim LMD As Date
MyPath = "C: \ Users \ Documents \"
Jei teisingai (MyPath, 1) "\" Tada MyPath = MyPath & "\"
MyFile = Dir (MyPath & "*.xls", vbNormal)
Jei Len (MyFile) = 0 Tada
„MsgBox“ Nerasta jokių failų … “, vbExclamation
Išeiti iš Sub
Pabaiga Jei
„Do while Len“ („MyFile“)> 0
LMD = „FileDateTime“ („MyPath“ ir „MyFile“)
Jei LMD> Naujausia data Tada
LatestFile = MyFile
Naujausia data = LMD
Pabaiga Jei
MyFile = Rež
Kilpa
Darbaknygės. Atidarykite „MyPath“ ir „LatestFile“
Pabaiga Sub
Tokiu būdu, naudodami makro kodą, galėsime atidaryti naujausią komandos nario išsaugotą failą.
Atsisiųsti - Kaip atidaryti naujausią failą aplanke - xlsm