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

img1

  • 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

img2

De esta forma, utilizando código macro, podremos abrir el último archivo guardado por el miembro del equipo.

image 4