Para Héctor Miguel

hola, Brenda !

... hace unos dias (06/10/09) envie a tu direccion... archivos ZIP
correspondientes a la pregunta: "opciones para trabajar archivo de Excel" ...

vi tu comentario en la consulta anterior y esperaba recibirlo (no ha llegado aun)
estoy seguro de no haber borrado ninguno pero es posible que tu envio tomara "mal parados" a los servidores (?)
(por si quieres hacer un nuevo envio ?)

saludos,
hector.

En este momento te lo acabo de enviar a la direciion: ,
ojala esté correcta esa dirección para que ahora si lo recibas.
Saludos, Brenda


"Héctor Miguel" escribió:

hola, Brenda !

> ... hace unos dias (06/10/09) envie a tu direccion... archivos ZIP
> correspondientes a la pregunta: "opciones para trabajar archivo de Excel" ...

vi tu comentario en la consulta anterior y esperaba recibirlo (no ha llegado aun)
estoy seguro de no haber borrado ninguno pero es posible que tu envio tomara "mal parados" a los servidores (?)
(por si quieres hacer un nuevo envio ?)

saludos,
hector.

hola, Brenda !

yo se que todos quisieramos no "perder el tiempo" en (tener que) leer instrucciones...
pero no siempre es posible :-((

en relacion con tu consulta original...

1) esta es una de las funciones propuestas:

Function EsLibroAbierto(Libro As String) As Boolean
On Error Resume Next
EsLibroAbierto = Len(Workbooks(Libro).Name)
End Function

y esta es la funcion que estas usando en el libro que enviaste:

Function EsLibroAbierto(Libro As String) As Boolean
On Error Resume Next
EsLibroAbierto = Len(Workbooks(Libro).Name)
End Function

son iguales y la funcion "deberia" de funcionar como se espera (sin embargo...)

2) este fue el ejemplo de uso para llamar a la funcion anterior:

If Not EsLibroAbierto("nombre del libro.xls") _
Then Workbooks.Open "c:uta yombre del libro.xls" _
Else Workbooks("nombre del libro.xls").Activate

y este es el macro que estas usando en el adjunto:

Sub Simula()
If Not EsLibroAbierto("nombre del libro.xls") _
Then Workbooks.Open "C:\Brenda\Simula" _
Else Windows("C:\Brenda\Simula").Activate
End Sub

a) nota que en el ejemplo el "nombre del libro.xls" fue por desconocimiento del nombre REAL de tu libro
por lo que te corresponde hacer las adaptaciones del caso
(y solo se requiere preguntar por el nombre, NO es necesario incluir "la ruta")...
de lo contrario "nombre del libro.xls" SIEMPRE sera reportado como "NO abierto"

b) para una instruccion Windows(...).Activate (o de preferencia: => Workbooks(...).Activate)
NO es necesario incluir "la ruta" donde se encuentra el archivo (abierto)

recuerda que tambien te solicitaba que confirmaras/corrigieras/... lo siguiente:

1) confirma/corrije estos dos puntos:
a) si estas usando la modalidad de_
Windows("libro fulano.XLS").Activate
o...
Workbooks("libro fulano.XLS").Activate
b) si el menu de ventana muestra los nombres de los archivos INCLUYENDO la EXTension (p.e. libro fulano.XLS)

si cualquier duda... comentas ?
saludos,
hector.

Estimado Héctor:
Tienes toda la razón yo incluía la ruta en la instrucción
Windows(...).Activate. También confirmé que el menú de ventana muestra los
nombres de los archivos INCLUYENDO la extensión “.xls”

La función y el llamado a la misma queda así:

Function EsLibroAbierto(Libro As String) As Boolean
On Error Resume Next
EsLibroAbierto = Len(Workbooks(Libro).Name)
End Function
Sub Simula()
If Not EsLibroAbierto("nombre del libro.xls") _
Then Workbooks.Open "C:\Brenda\Simula.xls" _
Else Workbooks("Simula.xls").Activate
End Sub

Sin embargo, cada vez que hago un pequeño cambio al libro abierto Simula y
vuelvo a pulsar el botón me aparece este mensaje:
“Simula.xls” ya está abierto, si lo vuelve a abrir perderá los cambios que
no haya guardado ¿Desea volver a abrir Simula.xls?
Y lo que se desea es que, si está abierto, la instrucción solo lo muestre
tal como lo actualizó recientemente el usuario, al final del trabajo éste
decidirá cuales cambios guarda y cuales no.

También te recuerdo lo que te decía en el foro, que el trabajo implica tener
5 o más archivos abiertos simultáneamente, así como, llamar a cualquiera de
ellos según la necesidad del usuario, desde un archivo master que contiene la
función.

Así están las cosas Héctor, muchísimas gracias por tu atención y por
instruirme de esa manera tan didáctica y disculpa mis tontitos errores.
Brenda





"Héctor Miguel" escribió:

hola, Brenda !

yo se que todos quisieramos no "perder el tiempo" en (tener que) leer instrucciones...
pero no siempre es posible :-((

en relacion con tu consulta original...

1) esta es una de las funciones propuestas:

Function EsLibroAbierto(Libro As String) As Boolean
On Error Resume Next
EsLibroAbierto = Len(Workbooks(Libro).Name)
End Function

y esta es la funcion que estas usando en el libro que enviaste:

Function EsLibroAbierto(Libro As String) As Boolean
On Error Resume Next
EsLibroAbierto = Len(Workbooks(Libro).Name)
End Function

son iguales y la funcion "deberia" de funcionar como se espera (sin embargo...)

2) este fue el ejemplo de uso para llamar a la funcion anterior:

If Not EsLibroAbierto("nombre del libro.xls") _
Then Workbooks.Open "c:uta yombre del libro.xls" _
Else Workbooks("nombre del libro.xls").Activate

y este es el macro que estas usando en el adjunto:

Sub Simula()
If Not EsLibroAbierto("nombre del libro.xls") _
Then Workbooks.Open "C:\Brenda\Simula" _
Else Windows("C:\Brenda\Simula").Activate
End Sub

a) nota que en el ejemplo el "nombre del libro.xls" fue por desconocimiento del nombre REAL de tu libro
por lo que te corresponde hacer las adaptaciones del caso
(y solo se requiere preguntar por el nombre, NO es necesario incluir "la ruta")...
de lo contrario "nombre del libro.xls" SIEMPRE sera reportado como "NO abierto"

b) para una instruccion Windows(...).Activate (o de preferencia: => Workbooks(...).Activate)
NO es necesario incluir "la ruta" donde se encuentra el archivo (abierto)

recuerda que tambien te solicitaba que confirmaras/corrigieras/... lo siguiente:

1) confirma/corrije estos dos puntos:
a) si estas usando la modalidad de_
Windows("libro fulano.XLS").Activate
o...
Workbooks("libro fulano.XLS").Activate
b) si el menu de ventana muestra los nombres de los archivos INCLUYENDO la EXTension (p.e. libro fulano.XLS)

si cualquier duda... comentas ?
saludos,
hector.

hola, Brenda !

(creo que...) "seguimos como antes", me explico:
alguno de los libros que necesitas (abierto en la sesion) se llama "nombre del libro.xls" ?????

en caso de que no... solo cambia la primer linea del procedimiento (sub simula(...)

de esto:
If Not EsLibroAbierto("nombre del libro.xls") _

a esto:
If Not EsLibroAbierto("simula.xls") _

saludos,
hector.

__ OP __

La funcion y el llamado a la misma queda asi:

Function EsLibroAbierto(Libro As String) As Boolean
On Error Resume Next
EsLibroAbierto = Len(Workbooks(Libro).Name)
End Function
Sub Simula()
If Not EsLibroAbierto("nombre del libro.xls") _
Then Workbooks.Open "C:\Brenda\Simula.xls" _
Else Workbooks("Simula.xls").Activate
End Sub

Sin embargo, cada vez que hago un pequeno cambio al libro abierto Simula y vuelvo a pulsar el boton
me aparece este mensaje: "Simula.xls" ya esta abierto, si lo vuelve a abrir perdera los cambios ...