Jump to content
Sign in to follow this  
Antoni

Abrir el último libro

Recommended Posts

Hola Gerson,

Quizás así:

 
Sub Abrir_ultimo()
Dim n As Byte
With Application
.DisplayAlerts = False
For n = 2 To .RecentFiles.Count
If Dir(.RecentFiles(n).Path) <> "" Then
.RecentFiles(n).Open
Exit For
End If
Next n
ThisWorkbook.Close
.DisplayAlerts = True
End With
End Sub
[/CODE]

Share this post


Link to post
Share on other sites

tuve quedo perfecto, y con el famoso "ON ERROR RESUME NEXT" va pasando al mas antiguo (hasta llegar a diferente carpeta)..., porque si eliminas algunos archivos (algo muy probable en las carpetas), mostraba error

Saludos

Share this post


Link to post
Share on other sites
Sign in to follow this  



×
×
  • Create New...

Important Information

Privacy Policy