Abrir libro o activar
Estoy buscando un código para que si un libro esta abierto lo active y si no lo abra ... Gracias por anticipado por la pronta respuesta.
1 Respuesta
Respuesta de cmcaminam
1
No es necesario controlar si está abierto o no. Simplemente lo abres y, si ya está abierto, lo activas.
El código es el siguiente (sustituye el camino de acceso y el nombre del fichero por el que sea de aplicación en tu caso):
'******* INICIO DE CÓDIGO *********
Sub AperturaFichero()
'
' Macro1 Macro
' Macro grabada el 26/05/2003 por César M.C.M.
'
'
ChDir _
"C:\TodoExpertos"
Workbooks.Open Filename:= _
"C:\TodoExpertos\Prueba de Apertura fichero.xls"
Windows("Prueba de Apertura fichero").Activate
End Sub
'********** FIN DE CÓDIGO **********
El código es el siguiente (sustituye el camino de acceso y el nombre del fichero por el que sea de aplicación en tu caso):
'******* INICIO DE CÓDIGO *********
Sub AperturaFichero()
'
' Macro1 Macro
' Macro grabada el 26/05/2003 por César M.C.M.
'
'
ChDir _
"C:\TodoExpertos"
Workbooks.Open Filename:= _
"C:\TodoExpertos\Prueba de Apertura fichero.xls"
Windows("Prueba de Apertura fichero").Activate
End Sub
'********** FIN DE CÓDIGO **********
Gracias por la respuesta pero lo que se quiere es que lo haga la macro y no manualmente creo que ya lo resolví con el siguiente código por si a alguien más le interesa.
Como nota adicional si ya lo tienes abierto y te aparece el mensaje de que si lo abres se perderán los datos que no se hayan guardado, darle click en no...
Sub AperturaFichero()
On Error GoTo Tratar_Errores
Workbooks.Open Filename:=_
"C:\TodoExpertos\Prueba de Apertura fichero.xls"
Windows("Prueba de Apertura fichero").Activate
Exit Sub
Tratar_Errores:
Select Case Err.Number
Case 0: 'case 0 y case 1004.Estos son los errores que me aparecian cuando intentaba abrir con una macro algun libro que ya estaba abierto
Windows("Prueba de Apertura fichero").Activate
Case 1004:
Windows("Prueba de Apertura fichero").Activate
Case Else
MsgBox ("Error no previsto. Llame al responsable facilitando la " & _
"información que sigue " & Chr(13) & "Número de Error : " & _
Err.Number & Chr(13) & "Descripción : " & Err.Description)
Exit Sub '
End Select
End Sub
Como nota adicional si ya lo tienes abierto y te aparece el mensaje de que si lo abres se perderán los datos que no se hayan guardado, darle click en no...
Sub AperturaFichero()
On Error GoTo Tratar_Errores
Workbooks.Open Filename:=_
"C:\TodoExpertos\Prueba de Apertura fichero.xls"
Windows("Prueba de Apertura fichero").Activate
Exit Sub
Tratar_Errores:
Select Case Err.Number
Case 0: 'case 0 y case 1004.Estos son los errores que me aparecian cuando intentaba abrir con una macro algun libro que ya estaba abierto
Windows("Prueba de Apertura fichero").Activate
Case 1004:
Windows("Prueba de Apertura fichero").Activate
Case Else
MsgBox ("Error no previsto. Llame al responsable facilitando la " & _
"información que sigue " & Chr(13) & "Número de Error : " & _
Err.Number & Chr(13) & "Descripción : " & Err.Description)
Exit Sub '
End Select
End Sub
