Cum se deschide cel mai nou fișier într-un folder în Microsoft Excel
În cazul în care doriți un cod VBA care vă va permite să deschideți fișierul salvat recent în folder cu doar un clic pe butonul macro.
Întrebare): Am o echipă de 10 persoane și caut urgent un macro care să mă ajute la deschiderea celui mai recent fișier salvat de către membru al echipei, astfel încât să nu trebuiască să merg pe calea în care este salvat fișierul.
Trebuie să urmăm pașii de mai jos:
- Faceți clic pe fila Dezvoltator
- Din grupul de coduri, selectați Visual Basic
- Introduceți următorul cod în modulul de foaie de lucru
Opțiune explicită
Sub NewestFile ()
Dim MyPath As String
Dim MyFile Ca Șir
Dim LatestFile As String
Dim Ultima dată ca dată
Dim LMD ca dată
MyPath = "C: \ Users \ Documents \"
Dacă este corect (MyPath, 1) "\" Atunci MyPath = MyPath & "\"
MyFile = Dir (MyPath & "* .xls", vbNormal)
Dacă Len (MyFile) = 0 Atunci
MsgBox "Nu s-au găsit fișiere …", vbExclamation
Ieșiți din Sub
End If
Do While Len (MyFile)> 0
LMD = FileDateTime (MyPath & MyFile)
Dacă LMD> LatestDate, atunci
LatestFile = Fișierul meu
LatestDate = LMD
End If
MyFile = Dir
Buclă
Cărți de lucru. Deschideți MyPath & LatestFile
Sfârșitul Sub
În acest fel, folosind codul macro, vom putea deschide cel mai recent fișier salvat de membrul echipei.
Descărcare - Cum se deschide cel mai nou fișier într-un folder - xlsm