Buscar archivo de excel en una carpeta con el nombre escrito en una celda
Ya tenía una programación que saque de aquí pero dejo de servir de la nada, quisiera saber si hay alguna otra forma porque si me era muy útil, gracias!
Por ejemplo en una Celda tengo el nombre del archivo completo con todo y extensión, quiero que ese lo busque en una carpeta que está en una red compartida
O si tmbn se puede que en una celda tenga parte del nombre del archivo y me lo busque solo con eso.
1 Respuesta
Pruebe con esta macro, Actualiza la celda donde esta el nombre del archivo a buscar, en la línea de código Archivo = Sheets("Hoja1"). Cells(13, 4).Value 13 es la fila y 4 es la columna. Actualiza el nombre de la hoja, la ruta del archivo
Sub AbrirArch()
Archivo = Sheets("Hoja1").Cells(13, 4).Value
Ruta = "D:\Carpeta\" & Archivo & """"
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(Archivo) Then
Workbooks.Open Archivo
Else
MsgBox "Archivo no encontrado"
End If
End Sub
Después de archivo van 3 comillas? 🤔
4 comillas, pude copiar y pegar todo el contenido de la macro. Esta abre el archivo, no se que desea hacer con la macro, quizá pueda adaptarla a sus necesidades.
