VBA för att öppna den senaste filen i mappen

Anonim

Hur man öppnar den nyaste filen i en mapp i Microsoft Excel

Om du vill ha en VBA -kod som låter dig öppna den nyligen sparade filen i mappen med bara ett klick på makroknappen.

Fråga): Jag har ett team på 10 personer och jag letar omedelbart efter ett makro som hjälper mig att öppna den senaste filen som sparats av teammedlem så att jag inte behöver gå vägen där filen sparas.

Vi måste följa stegen nedan:

  • Klicka på fliken Utvecklare
  • Välj Visual Basic i kodgruppen

  • Ange följande kod i kalkylbladsmodulen

Alternativ Explicit

Sub Nyaste fil ()

Dim MyPath som sträng

Dim MyFile As String

Dim LatestFile As String

Dim Senaste datum som datum

Dim LMD As Date

MyPath = "C: \ Users \ Documents \"

Om rätt (MyPath, 1) "\" Då är MyPath = MyPath & "\"

MyFile = Dir (MyPath & "*.xls", vbNormal)

Om Len (MyFile) = 0 Då

MsgBox "Inga filer hittades …", vbExclamation

Avsluta Sub

Avsluta om

Gör medan Len (MyFile)> 0

LMD = FileDateTime (MyPath & MyFile)

Om LMD> Senaste datum Då

LatestFile = MyFile

Senaste datum = LMD

Avsluta om

MyFile = Dir

Slinga

Workbooks.Open MyPath & LatestFile

Avsluta Sub

På så sätt kommer vi med makrokod att kunna öppna den senaste filen som lagmedlemmen har sparat.

Ladda ner - Hur man öppnar den senaste filen i en mapp - xlsm