saber si un excel esta abierto

[ebu]

hola!
tengo varios excel abiertos y me gustaria saber si el documento llamado consulta.xls esta abierto.

he probado con:
Sub main()

If Workbooks.Item(1).IsOpen Then
MsgBox "si"
End If

End Sub

pero no hace nada. he estado mirando y parece que no existe la funcion isopen para workbooks. como lo puedo hacer?

gracias por adelantado!

[David]

Lo que puedes hacer es recorrer todos los libros para saber si está abierto uno con el nombre del archivo:

Código vb:

Dim Libro As Workbook
For Each Libro In Workbooks
    If LCase(Libro.Name) = "archivo.xls" Then
        MsgBox "archivo.xls está abierto"
    End If
Next Libro
 

[ebu]

ei, David, muchas gracias!
era lo que estaba buscando!
saludos!

[njhernandez]

David un recibe un cordial saludo. Nunca antes he utilizado este medio y no se como hacer para preguntar y lo que necesito es muy parecido a la pregunta actual. Ante todo quiero agradecerte por la ayuda que me puedas brindar.

Tengo una macro que extrae información de determinados libros que tengo abiertos Inmediatamente me extrae la información del segundo libro abierto, lo cierra y sigue con el siguiente. El problema es que necesito que cuando ya no encuentre libros abiertos no me genere error para poder ejecutar otras órdenes en el libro que posee la macro. Lo anterior se debe a que trabajo con las ordenes For u= 125 (no siembre son 125) y Next u. Actualmente lo que hago es que cuando me genera el error le doy finalizar y ejecuto otra macro. ¿Cómo hago para que cuando no encuentre el siguiente libro abierto no me presente error y pueda seguir ejecutando otras órdenes? El siguiente es el resumen de lo que hago en la primera macro:

Sub CULTIVOS()
For u = 1 To 125
Workbooks(1).Sheets(1).Activate
Workbooks(2).Sheets(1).Activate
“EJECUTA EL PROCEDIMIENTO”
Workbooks(2).Sheets(1).Activate
ActiveWorkbook.Close False
Workbooks(2).Sheets(1).Activate
Next u

Muchas gracias por la atención prestada.

[David]

¿No sería mejor usar un For Each como en el ejemplo?

Saludos.