Hvordan åpne den nyeste filen i en mappe i Microsoft Excel
Hvis du vil ha en VBA -kode som lar deg åpne den nylig lagrede filen i mappen med bare et klikk på makroknappen.
Spørsmål): Jeg har et team på 10 personer, og jeg leter raskt etter en makro som vil hjelpe meg med å åpne den siste filen som er lagret av teammedlem, slik at jeg ikke trenger å gå banen der filen er lagret.
Vi må følge trinnene nedenfor:
- Klikk på kategorien Utvikler
- Velg Visual Basic fra kodegruppen
- Skriv inn følgende kode i regnearkmodulen
Alternativ Eksplisitt
Sub Nyeste fil ()
Dim MyPath As String
Dim MyFile As String
Dim LatestFile As String
Dim LatestDate As Date
Dim LMD As Date
MyPath = "C: \ Users \ Documents \"
Hvis Høyre (MyPath, 1) "\" Da er MyPath = MyPath & "\"
MyFile = Dir (MyPath & "*.xls", vbNormal)
Hvis Len (MyFile) = 0 Da
MsgBox "Ingen filer ble funnet …", vbExclamation
Avslutt Sub
Slutt om
Do While Len (MyFile)> 0
LMD = FileDateTime (MyPath & MyFile)
Hvis LMD> LatestDate Then
LatestFile = MyFile
Siste dato = LMD
Slutt om
MyFile = Dir
Løkke
Arbeidsbøker. Åpne MyPath & LatestFile
Slutt Sub
På denne måten vil vi ved å bruke makrokode kunne åpne den nyeste filen som er lagret av teammedlemmet.
Last ned - Slik åpner du den nyeste filen i en mappe - xlsm
