Sådan åbnes den nyeste fil i en mappe i Microsoft Excel
Hvis du vil have en VBA -kode, som giver dig mulighed for at åbne den nyligt gemte fil i mappen med et enkelt klik på makro -knappen.
Spørgsmål): Jeg har et team på 10 personer, og jeg leder hurtigt efter en makro, der hjælper mig med at åbne den nyeste fil, der er gemt af teammedlem, så jeg ikke behøver at gå den vej, hvor filen er gemt.
Vi skal følge nedenstående trin:
- Klik på fanen Udvikler
- Vælg Visual Basic i kodegruppen
- Indtast følgende kode i regnearksmodulet
Mulighed eksplicit
Sub nyeste fil ()
Dim MyPath som streng
Dim MyFile som streng
Dim LatestFile som streng
Dim Seneste dato som dato
Dim LMD som dato
MyPath = "C: \ Users \ Documents \"
Hvis Right (MyPath, 1) "\" Så er MyPath = MyPath & "\"
MyFile = Dir (MyPath & "*.xls", vbNormal)
Hvis Len (MyFile) = 0 Så
MsgBox "Ingen filer blev fundet …", vbExclamation
Afslut Sub
Afslut Hvis
Gør mens Len (MyFile)> 0
LMD = FileDateTime (MyPath & MyFile)
Hvis LMD> Seneste dato Så
LatestFile = MyFile
Seneste dato = LMD
Afslut Hvis
MyFile = Dir
Sløjfe
Workbooks.Open MyPath & LatestFile
Afslut Sub
På denne måde vil vi ved hjælp af makrokode kunne åbne den nyeste fil, der er gemt af teammedlemmet.
Download - Sådan åbnes den nyeste fil i en mappe - xlsm