Cómo abrir el archivo más nuevo en una carpeta en Microsoft Excel
En caso de que desee un código VBA que le permitirá abrir el archivo guardado recientemente en la carpeta con solo hacer clic en el botón de macro.
Pregunta): Tengo un equipo de 10 personas y estoy buscando urgentemente una macro que me ayude a abrir el último archivo guardado por un miembro del equipo para no tener que ir por la ruta en la que se guarda el archivo.
Necesitamos seguir los pasos a continuación:
- Haga clic en la pestaña Desarrollador
- Desde el grupo Código, seleccione Visual Basic
- Ingrese el siguiente código en el módulo de la hoja de trabajo
Opción explícita
Sub NewestFile ()
Atenuar MyPath como cadena
Atenuar MyFile como cadena
Dim LatestFile como cadena
Dim LatestDate As Date
Atenuar LMD como fecha
MyPath = "C: \ Usuarios \ Documentos \"
Si es correcto (MyPath, 1) "\" Entonces MyPath = MyPath & "\"
MyFile = Dir (MyPath & "* .xls", vbNormal)
Si Len (MyFile) = 0, entonces
MsgBox "No se encontraron archivos…", vbExclamation
Salir de Sub
Terminara si
Hacer mientras Len (MiArchivo)> 0
LMD = FileDateTime (MyPath y MyFile)
Si LMD> LatestDate, entonces
LatestFile = MiArchivo
LatestDate = LMD
Terminara si
MyFile = Dir
Círculo
Workbooks.Open MyPath y LatestFile
End Sub
De esta forma, utilizando código macro, podremos abrir el último archivo guardado por el miembro del equipo.
Descargar: cómo abrir el archivo más nuevo en una carpeta - xlsm
