Abrir libro con nombre variable
Tengo un libro excel que se actualiza cada día con la fecha y preciso abrirlo sin tener que indicar el nombre exacto. Estoy intentando con el siguiente código :
Sub ARCHIVODIARIO()
RUTA = "C:\Users\PCTONI\ARCHIVO DIARIO "
NOMBRE = "*"
Workbooks.Open (RUTA & NOMBRE)
End Sub
1 respuesta
Respuesta de Dante Amor
1
C:\Users\pctoni\Archivodiario 20220122.xlsm
C:\Users\pctoni\Archivodiario 20220123.xlsm
C:\Users\pctoni\Archivodiario 20220124.xlsm
Prueba lo siguiente:
Sub Abrir_Archivo() Dim ruta As String, arch As String ' ruta = "C:\Users\pctoni\" arch = "Archivodiario " & Format(Date, "yyyymmdd") & ".xlsm" ' If Dir(ruta & arch) <> "" Then Workbooks.Open ruta & arch Else MsgBox "No existe el archivo del día de hoy : " & Date End If End Sub
Hola no funciona salta el if y da error
¿Qué error te aparece?
Para que funcione debes tener un archivo en esta ruta y con este nombre
C:\Users\pctoni\Archivodiario 20220125.xlsm
Revisa el nombre y la extensión
Puedes poner una imagen para ver el nombre de la carpeta y el nombre del archivo
Algo como esto
