Busqueda de libro por Sesiones

Hola Gustavo,

saber si un libro determinado se encuentra
entre los libros abiertos
hago un For Each
para que me recorra los libros abiertos

No es necesario recorrer todos los libros abiertos, basta con algo asi:

Sub test()
Dim Nombre As String, Libro As Workbook
Nombre = "C:\temp\Libro1.xls"
On Error Resume Next
Set Libro = Workbooks(Dir(Nombre))
On Error GoTo 0
If Not Libro Is Nothing Then MsgBox "Si que esta abierto!"
End Sub

puedo tener mas de una sesión del Excel corriendo

Por que usas mas de una sesion y como las abres?

recorrer las sesiones; necesitaria algo como
For Each "Sesiones"

La solucion dependera de la respuesta a la pregunta anterior.

Saludos,
KL

El tema que en realidad estoy haciendo una macro para otra persona.
Las sesiones las abre (creo) desde el menú Inicio

Saludos y gracias por la colaboracion
Gustavo

"KL" escribió:

Hola Gustavo,

>saber si un libro determinado se encuentra
> entre los libros abiertos
> hago un For Each
> para que me recorra los libros abiertos

No es necesario recorrer todos los libros abiertos, basta con algo asi:

Sub test()
Dim Nombre As String, Libro As Workbook
Nombre = "C:\temp\Libro1.xls"
On Error Resume Next
Set Libro = Workbooks(Dir(Nombre))
On Error GoTo 0
If Not Libro Is Nothing Then MsgBox "Si que esta abierto!"
End Sub

> puedo tener mas de una sesión del Excel corriendo

Por que usas mas de una sesion y como las abres?

> recorrer las sesiones; necesitaria algo como
> For Each "Sesiones"

La solucion dependera de la respuesta a la pregunta anterior.

Saludos,
KL

Hola Gustavo,

Salvo hay una razon muy contundente (que yo desconozco) el crear varias instancias de Excel no tiene mucho sentido desde el punto de
vista de la estabilidad, probabilidad de errores, disponibilidad de codigos etc. A mi me suena a que la otra persona esta usando
incorrectamente la funcion CreateObject que genera nuevas instancias del objeto (en este caso Aplicacion) cada vez que se ejute. De
lo contrario yo diria que lo mas barato seria recomendarle a la otra persona que no abra mas de una instancia.

Saludos,
KL


"Gustavo" wrote in message news:

El tema que en realidad estoy haciendo una macro para otra persona.
Las sesiones las abre (creo) desde el menú Inicio

Saludos y gracias por la colaboracion
Gustavo

"KL" escribió:

Hola Gustavo,

>saber si un libro determinado se encuentra
> entre los libros abiertos
> hago un For Each
> para que me recorra los libros abiertos

No es necesario recorrer todos los libros abiertos, basta con algo asi:

Sub test()
Dim Nombre As String, Libro As Workbook
Nombre = "C:\temp\Libro1.xls"
On Error Resume Next
Set Libro = Workbooks(Dir(Nombre))
On Error GoTo 0
If Not Libro Is Nothing Then MsgBox "Si que esta abierto!"
End Sub

> puedo tener mas de una sesión del Excel corriendo

Por que usas mas de una sesion y como las abres?

> recorrer las sesiones; necesitaria algo como
> For Each "Sesiones"

La solucion dependera de la respuesta a la pregunta anterior.

Saludos,
KL

Ok, se lo voy a plantear pero...¿hay forma de conocer las distintas
instancias? o por lo menos saber si hay mas de 1?

Gracias nuevamente


"KL" escribió:

Hola Gustavo,

Salvo hay una razon muy contundente (que yo desconozco) el crear varias instancias de Excel no tiene mucho sentido desde el punto de
vista de la estabilidad, probabilidad de errores, disponibilidad de codigos etc. A mi me suena a que la otra persona esta usando
incorrectamente la funcion CreateObject que genera nuevas instancias del objeto (en este caso Aplicacion) cada vez que se ejute. De
lo contrario yo diria que lo mas barato seria recomendarle a la otra persona que no abra mas de una instancia.

Saludos,
KL


"Gustavo" wrote in message news:
> El tema que en realidad estoy haciendo una macro para otra persona.
> Las sesiones las abre (creo) desde el menú Inicio
>
> Saludos y gracias por la colaboracion
> Gustavo
>
> "KL" escribió:
>
>> Hola Gustavo,
>>
>> >saber si un libro determinado se encuentra
>> > entre los libros abiertos
>> > hago un For Each
>> > para que me recorra los libros abiertos
>>
>> No es necesario recorrer todos los libros abiertos, basta con algo asi:
>>
>> Sub test()
>> Dim Nombre As String, Libro As Workbook
>> Nombre = "C:\temp\Libro1.xls"
>> On Error Resume Next
>> Set Libro = Workbooks(Dir(Nombre))
>> On Error GoTo 0
>> If Not Libro Is Nothing Then MsgBox "Si que esta abierto!"
>> End Sub
>>
>> > puedo tener mas de una sesión del Excel corriendo
>>
>> Por que usas mas de una sesion y como las abres?
>>
>> > recorrer las sesiones; necesitaria algo como
>> > For Each "Sesiones"
>>
>> La solucion dependera de la respuesta a la pregunta anterior.
>>
>> Saludos,
>> KL
>>
>>

Hola Gustavo,

Poder se puede, pero creo que la cura podria resultar peor que la enfermedad :-). Revisa los siguientes enlaces:

http://support.microsoft.com/kb/258511/es
http://support.microsoft.com/kb/183009/es

Saludos,
KL


"Gustavo" wrote in message news:

Ok, se lo voy a plantear pero...¿hay forma de conocer las distintas
instancias? o por lo menos saber si hay mas de 1?

Gracias nuevamente


"KL" escribió:

Hola Gustavo,

Salvo hay una razon muy contundente (que yo desconozco) el crear varias instancias de Excel no tiene mucho sentido desde el punto
de
vista de la estabilidad, probabilidad de errores, disponibilidad de codigos etc. A mi me suena a que la otra persona esta usando
incorrectamente la funcion CreateObject que genera nuevas instancias del objeto (en este caso Aplicacion) cada vez que se ejute.
De
lo contrario yo diria que lo mas barato seria recomendarle a la otra persona que no abra mas de una instancia.

Saludos,
KL


"Gustavo" wrote in message news:
> El tema que en realidad estoy haciendo una macro para otra persona.
> Las sesiones las abre (creo) desde el menú Inicio
>
> Saludos y gracias por la colaboracion
> Gustavo
>
> "KL" escribió:
>
>> Hola Gustavo,
>>
>> >saber si un libro determinado se encuentra
>> > entre los libros abiertos
>> > hago un For Each
>> > para que me recorra los libros abiertos
>>
>> No es necesario recorrer todos los libros abiertos, basta con algo asi:
>>
>> Sub test()
>> Dim Nombre As String, Libro As Workbook
>> Nombre = "C:\temp\Libro1.xls"
>> On Error Resume Next
>> Set Libro = Workbooks(Dir(Nombre))
>> On Error GoTo 0
>> If Not Libro Is Nothing Then MsgBox "Si que esta abierto!"
>> End Sub
>>
>> > puedo tener mas de una sesión del Excel corriendo
>>
>> Por que usas mas de una sesion y como las abres?
>>
>> > recorrer las sesiones; necesitaria algo como
>> > For Each "Sesiones"
>>
>> La solucion dependera de la respuesta a la pregunta anterior.
>>
>> Saludos,
>> KL
>>
>>