Come aprire il file più recente in una cartella in Microsoft Excel

Nel caso in cui desideri un codice VBA che ti permetta di aprire il file salvato di recente nella cartella con un semplice clic sul pulsante macro.

Domanda): Ho un team di 10 persone e sto cercando urgentemente una macro che mi aiuti ad aprire l’ultimo file salvato dal membro del team in modo da non dover andare sul percorso in cui è stato salvato il file.

Dobbiamo seguire i seguenti passaggi:

Fare clic sulla scheda Sviluppatore Dal gruppo Codice, selezionare Visual Basic

img1

  • Inserisci il seguente codice nel modulo del foglio di lavoro

Opzione esplicita

Sub NewestFile ()

Dim MyPath As String

Dim MyFile As String

Dim LatestFile As String

Dim LatestDate As Date

Dim LMD come data

MyPath = “C: \ Users \ Documents \”

If Right (MyPath, 1) <> “\” Allora MyPath = MyPath & “\”

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

Se Len (MyFile) = 0 Allora

MsgBox “Nessun file trovato …​”, vbExclamation

Esci da Sottotitolo

End If

Fai While Len (MyFile)> 0

LMD = FileDateTime (MyPath & MyFile)

Se LMD> UltimaData Allora

LatestFile = MyFile

LatestDate = LMD

End If

MyFile = Dir

Loop

Cartelle di lavoro. Apri MyPath & LatestFile

End Sub

img2

In questo modo, utilizzando il codice macro, potremo aprire l’ultimo file salvato dal membro del team.

image 4