Hoe het nieuwste bestand in een map in Microsoft Excel te openen
Als u een VBA-code wilt waarmee u het recent opgeslagen bestand in de map kunt openen met slechts een klik op de macroknop.
Vraag): Ik heb een team van 10 mensen en ik ben dringend op zoek naar een macro die me zal helpen bij het openen van het nieuwste bestand dat door een teamlid is opgeslagen, zodat ik niet het pad hoef te gaan waarin het bestand is opgeslagen.
We moeten de onderstaande stappen volgen:
- Klik op het tabblad Ontwikkelaar
- Selecteer in de codegroep Visual Basic
- Voer de volgende code in de werkbladmodule in:
Optie expliciet
Sub NieuwsteBestand()
Dim MyPath als string
Dim MyFile als string
Dim laatste bestand als string
Dim LaatsteDatum Als Datum
Dim LMD als datum
MyPath = "C:\Gebruikers\Documenten\"
Als het goed is (Mijn Pad, 1) "\" Dan is Mijn Pad = Mijn Pad & "\"
MijnBestand = Dir(MijnPad & "*.xls", vbNormaal)
Als Len (MijnBestand) = 0 Dan
MsgBox "Er zijn geen bestanden gevonden…", vbExclamation
Sluit sub
Stop als
Doen terwijl Len (MijnBestand) > 0
LMD = FileDateTime (MijnPad & MijnBestand)
Als LMD > Laatste Datum Dan
LaatsteBestand = MijnBestand
LaatsteDatum = LMD
Stop als
MijnBestand = Dir
Lus
Workbooks.Open MyPath & LatestFile
Einde sub
Op deze manier kunnen we met behulp van macrocode het laatste bestand openen dat door het teamlid is opgeslagen.
Download - Hoe het nieuwste bestand in een map te openen - xlsm