Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Al abrir un libro

22/08/2009 - 09:11 por José Rafael | Informe spam
Ayuda Hacer una pregunta
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)
email Siga el debateRespuesta 7 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Héctor Miguel
22/08/2009 - 09:51 | Informe spam
hola, José Rafael !

prueba con los hipervinculos (y te olvidas de comprobar primero si ya esta abierto o no) p.e.

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("fichas").Select
Range("j1").Select
End Sub

saludos,
hector.

__ OP __
Necesito modificar el codigo para que cuando quiero abrir un libro me avise si ya esta abierto
y vaya a la hoja que le pida o en su caso, sino esta abierto lo abra y vaya a la hoja que le pida.
Este es el codigo que tengo y me vale para abrir pero no para evitar el mensaje de que ya esta abierto...

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

Preguntas similares

 

Busqueda sugerida :