Activate

16/04/2009 - 18:47 por Juan Carlos | Informe spam
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
 

Leer las respuestas

#1 Juan M
16/04/2009 - 20:08 | Informe spam
"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

Preguntas similares