Forums Últimos mensajes - Powered by IBM
 

Código para saber si un libro esta abierto

27/06/2005 - 23:13 por Esteban Dido | Informe spam
Hola,
¿Cómo se puede saber por código sin un determinado libro está abierto?
Gracias
Saludos
 

Leer las respuestas

#1 Héctor Miguel
27/06/2005 - 23:29 | Informe spam
hola, Esteban !

... saber por codigo sin un determinado libro esta abierto?



si vas a usar 'con frecuencia' la busqueda de libros [en la sesion]...
[te sugiero] usa una funcion personalizada y 'preguntale' [en el codigo] por el nombre del libro...
-te expongo un ejemplo al final-

si cualquier duda... ¿comentas?
saludos,
hector.
en un modulo de codigo 'normal' ==Function EsLibroAbierto(ByVal Nombre As String) As Boolean
Dim Libro As Workbook
On Error Resume Next
Set Libro = Workbooks(Nombre)
EsLibroAbierto = (Not Libro Is Nothing)
Set Libro = Nothing
End Function
' y una macro de +/- como le podrias dar 'uso' ...
Sub CerrarLibroAbierto()
Dim EsteLibro As String
EsteLibro = "X"
If EsLibroAbierto(EsteLibro) Then
MsgBox "El libro " & EsteLibro & " se está cerrando..."
' aqui el codigo necesario para cerrarlo... '
Else
MsgBox "El libro " & EsteLibro & " está ""ausente""."
End If
End Sub

Preguntas similares