Al abrir un libro

22/08/2009 - 09:11 por José Rafael | Informe spam
Necesito modificar el código para que cuando quiero abrir un libro me avise
si ya está abierto y vaya a la hoja que le pida o en su caso, sino está
abierto lo abra y vaya a la hoja que le pida.
Este es el código que tengo y me vale para abrir pero no para evitar el
mensaje de que ya está abierto. Gracias

Sub Botón17_AlHacerClic()
Workbooks.Open Filename:= _
"C:\Documents and Settings\hes040\Mis documentos\lISTADO Nº 9 DE
TODOS LOS CLIENTES AL 30-06-09.xls"
Sheets("Ficha").Select
Range("J1").Select
End Sub

Saludos
José Rafael - Valencia (España)

Preguntas similare

Leer las respuestas

#6 José Rafael
25/08/2009 - 12:03 | Informe spam
Hola Héctor:
Me da bastante vergüenza confesarte que la dirección no era la correcta y
que gracias al truco que me dijiste de la ventana inmediato lo he podido
solucionar, simplemente es que el archivo se encontraba en el escritorio...
disculpa por tu tiempo perdido.
Gracias otra vez.
José Rafael

"Héctor Miguel" escribió en el mensaje
news:
hola, José Rafael !

(primero:) dejame comentar que (hasta donde se) los errores en tiempo de
ejecucion -2147... (u 800xxx...)
indican que el codigo esta haciendo una "llamada" a un
objeto/servicio/proveedor/control/... que:
- o bien no esta presente/visible/disponible/... al momento de su llamada
- o bien dicho control/objeto/servicio/... NO existe en el pc desde el que
se ejecuta el codigo

de esta consulta, cuando mencionas...
Estoy haciendo una "aplicacion" para mis comerciales ...



- a que te refieres con tus "comerciales" ???
- te refieres a personal de ventas/comercializacion/... donde cada quien
tiene su pc ?
- si cada uno tiene su pc, no es logico tambien que cada pc tiene su
propio "arbol de directorios/carpetas" ???
- no cabria la posibilidad de que en todos los pc la ruta NO sea
(exactamente) "la misma" ???

y cuando dices...
Asi que el codigo que me pasaste:
Sub Botón17_AlHacerClic()
ActiveWorkbook.FollowHyperlink _
"c:\documents and settings\hes040\mis documentos\listado n° 9 de todos
los clientes al 30-06-09.xls"
Worksheets("Ficha").Select
Range("j1").Select
End Sub
... yo pedia... que si ya estuviera abierto este libro, simplemente se
trasladara a la celda J1 y sino, lo abriera.



- ya comprobaste que TODOS los caracteres sean (exactamente) como estan en
el pc donde se ejecuta ?
- "c:\documents and settings\<nombre del usuario>\... etc. etc. etc.
- el caracter "°" es exactamente el mismo ?
- no hay espacios de mas o de menos en toda la ruta y nombre del archivo
?

prueba abiendo "a mano" ese libro y consulta su ruta completa (p.e.) desde
la ventana de inmediato en el editor de vba:
? activeworkbook.fullname
y luego copias/pegas ese resultado desde la ventana de inmediato al codigo
entre las comillas del .FollowHyperlink

comentas (si encuentras) algun detalle mas significativo ?
saludos,
hector.

Respuesta Responder a este mensaje
#7 Héctor Miguel
25/08/2009 - 18:03 | Informe spam
hola, José Rafael !

... la direccion no era la correcta... gracias al truco... de la ventana inmediato lo he podido solucionar
... el archivo se encontraba en el escritorio...



gracias a ti, por el "feed-back", queda en los registros para otras consultas similares
(por el significado de los errores del tipo -2147...)

saludos,
hector.
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una pregunta AnteriorRespuesta Tengo una respuesta
Search Busqueda sugerida