Buenas tardes a todos, necesito de su ayuda para abrir archivos de excel desde cualquier ubicación (
Buenas tardes a todos, necesito de su ayuda para abrir archivos de excel desde una macros desde cualquier ubicación (carpeta), lo estaba intentado hacer pero me salta error cuando no lo encuentra el archivo. Esto es lo que tengo hasta ahora.
If ThisWorkbook.Path & "\" & "hoja1.xlsx" = ThisWorkbook.Path & "\" & "hoja1.xlsx" Then
Workbooks.Open ThisWorkbook.Path & "\" & "hoja1.xlsx"
Else
MsgBox "El archivo hoja1 no existe"
End If
Ddesde gracias por su ayuda.
1 Respuesta
No entendí la comparación... parece que SI A = A entonces se llama al libro...
Con ThisWorkbook. Path le estás diciendo que el libro estará en la misma carpeta que el libro que tiene la macro que lo está llamando.
Si eso es correcto sería así:
'controla posible error
On Error goto sinlibro
Workbooks.Open ThisWorkbook.Path & "\" & "hoja1.xlsx"
'aquí estoy con el libro abierto y éste es el activo ahora
'aquí vendrían tus instrucciones para con el libro
'.-----
'------
'aquí finaliza tu macro
Exit Sub
'y aquí envia el mensaje
Sinlibro:
MsgBox "El archivo hoja1 no existe"
End Sub
De este modo la macro se cancela (yendo al final) si no encuentra el libro. Si debe seguir la macro de todos modos, comentame cómo será el proceso en general como para ajustarla.
