Libro abierto
Saludos expertos
Mi pregunta es la siguiente.:
Como puedo hacer la pregunta en una macro
IF el libro"Repuestos" esta abierto THEN
hacer .....
END IF
Nuevamente saludos y espero haber sido claro. Ndo
Mi pregunta es la siguiente.:
Como puedo hacer la pregunta en una macro
IF el libro"Repuestos" esta abierto THEN
hacer .....
END IF
Nuevamente saludos y espero haber sido claro. Ndo
1 respuesta
Respuesta
1
La forma que lo hago yo es poner un control de errores al código; luego trato de ir al archivo; si puede ir entonces es porque está abierto; en caso que me de error (lo capturo) y se que está cerrado; sería algo como...
OnError GoTo revisarAbierto
Workbooks("Repuestos"). Activate
Hacer...
...
Exit Sub
revisarAbierto:
MsgBox "si llegó acá el libro No está abierto y lo intentará abrir en el Path activo"
Workbooks.Open "Repuestos.xls"
Resume
End Sub
OnError GoTo revisarAbierto
Workbooks("Repuestos"). Activate
Hacer...
...
Exit Sub
revisarAbierto:
MsgBox "si llegó acá el libro No está abierto y lo intentará abrir en el Path activo"
Workbooks.Open "Repuestos.xls"
Resume
End Sub