Foro Excel

Estas función permite saber si un libro está abierto

Código: Seleccionar todo

Function WorkbookOpen(WorkBookName As String) As Boolean
' returns TRUE if the workbook is open
    WorkbookOpen = False
    On Error GoTo WorkBookNotOpen
    If Len(Application.WorkBooks(WorkBookName).Name) > 0 Then
        WorkbookOpen = True
        Exit Function
    End If
WorkBookNotOpen:
End Function

La forma de usar la función sería esta:

Código: Seleccionar todo

If Not WorkbookOpen("MyWorkbookName.xls") Then
    Workbooks.Open "MyWorkbookName.xls"
End If

Otra macro alternativa es esta:

Código: Seleccionar todo

Sub LibroAbierto()
Dim w As Workbook
For Each w In Workbooks
If w.Name = "Libro3.xls" Then
MsgBox w.Name & " abierto"
End If
Next w
End Sub

Salu2.xls

Esta es otra forma:

Function ABIERTO(ws) As Boolean
On Error Resume Next
ABIERTO = Not IsError(Workbooks(ws))
End Function

Yo le agregaría en un módulo:

sub abrirnombredelarchivo()
If Not WorkbookOpen("nombre.xls") Then
Workbooks.Open Filename:=ThisWorkbook.Path & "\nombre.xls"
End If
If WorkbookOpen("nombre.xls") Then
Workbooks("nombre.xls").Activate
End If
end sub

De esta manera se puede abrir el archivo o activarlo si ya fue abierto.

De paso, agradecer por los aportes de los compañeros porque me estaba rompiendo las neuronas como abrir (o activarlo si ya estaba abierto) el archivo sin que apareciera el mensaje de que el archivo estaba abierto y si lo quería volver abrir podía perder información. Si le contestaba sí podía perder información, si contestaba no, no me lo activaba. Con la función que aportaron y las pequeñas modificaciones que le hice, funciona perfecto: si el archivo está abierto, lo activa sino, lo abre.
Saludos de un principiante en esto de la programación.

Aquí tengo otra solución, que al igual que la anterior revisa si el libro está abierto, sino lo abre:

Código: Seleccionar todo

On Error GoTo cerrado
Workbooks("MiArchivo.xls").Activate
GoTo abierto

cerrado:
Workbooks.Open Filename:="MiRuta\MiArchivo.xls"
'donde MiRuta es por ejemplo, "C:\Mis docuementos\" y MiArchivo el nombre del libro a buscar...

abierto:
' aquí continúan con la macro


Saludos de un autómata que se educa con google e internet....

Esta es otra forma:

Function ABIERTO(ws) As Boolean
On Error Resume Next
ABIERTO = Not IsError(Workbooks(ws))
End Function