Activate

"Juan Carlos" escribió

Hola, tengo una planilla que en una parte necesita que haya otra abierta
para, mediante WINDOWS("PLANILLA.XLS").ACTIVATE, ir a cierta hoja y de
alli
sacar unos valores.
Todo va bien si la PLANILLA.XLS esta abierta, pero si no esta abierta da
un
error.

La pregunta es : de que manera puedo verificar que cierto libro este
abierto ?

Gracias
JC

Hola Juan Carlos,

Por ejemplo de esta forma:
Enviando el nombre del archivo devuelve verdadero (true) si está abierto o
falso (false) si está cerrado.
p.e.: WorkbookOpen("milibro.xls")


Function WorkbookOpen(wrkWorkbookName As String) As Boolean
WorkbookOpen = False
On Error GoTo WorkbookNotOpen
If Len(Application.Workbooks(wrkWorkbookName).Name) > 0 Then
WorkbookOpen = True
Exit Function
End If
WorkbookNotOpen:
End Function

Un saludo,
Juan