VBA para abrir más reciente del archivo en la carpeta
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 que no tenga 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 As String
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
Finalizar si
Hacer mientras Len (MiArchivo)> 0
LMD = FileDateTime (MyPath y MyFile)
Si LMD> LatestDate Entonces
LatestFile = MyFile
LatestDate = LMD
Finalizar si
MiArchivo = Dir
Bucle
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.