VBA Åpne den siste filen i mappen

Anonim

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