Buscar

14 envíos / 0 nuevos
Último envío
arguerof
Imagen de arguerof
Offline
última acción: Hace 14 años 4 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntos
alta: 20/04/2009 - 20:30
Puntos: 660
Buscar

Otra preguntita! me esta gustando esto del excel.!

se puede hacer un boton activex que me busque segun un numero en una celda un archivo dentro de una carpeta y me lo abra  ?

o sea yo pongo un numero de un plano en una celda predeterminada y apretando un boton activex me busque ese archivo y me lo abra -

 

Gracias.

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 18 horas 39 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 11175
sí se puede

Sí se puede, ¿pero el archivo que hay que abrir es una hoja de cálculo que hay que abrir en Excel o se abre con otro programa?

------
Ya sé Excel, pero necesito más
La potencia sin control no sirve de nada.

 

------
Ya sé Excel, pero necesito más.

arguerof
Imagen de arguerof
Offline
última acción: Hace 14 años 4 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntos
alta: 20/04/2009 - 20:30
Puntos: 660
Re: sí se puede

es un plano que esta comprimido en un .rar o sea abrir un .rar

 

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 18 horas 39 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 11175
Re: sí se puede

prueba con esto, continuando con la idea de los hipervínculos

ActiveWorkbook.FollowHyperlink Address:=NombreArchivo

Con el nombre de archivo incluyendo la ruta completa al archivo

Por otra parte, y sin necesidad de macros, como la extensión está asociada al programa que lo abre, también podría abrirse con un hipervínculo desde la hoja.

------
Ya sé Excel, pero necesito más
La potencia sin control no sirve de nada.

 

------
Ya sé Excel, pero necesito más.

arguerof
Imagen de arguerof
Offline
última acción: Hace 14 años 4 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntos
alta: 20/04/2009 - 20:30
Puntos: 660
Re: Buscar

Bien!

ahora....

ActiveWorkbook.FollowHyperlink Address:="\\192.168.25.2\datos general $\Ingenieria\Documentos Recibidos\ACA_CARPETA_SEGUN_UNA_CELDA_PREDETERMINADA"

se pude hacer lo de arriba? como ?

 

 

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 18 horas 39 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 11175
Re: Buscar

si la ruta existe y es accesible desde el equipo debería funcionar aunque esté en red.

Te adjunto un ejemplo


------
Ya sé Excel, pero necesito más
La potencia sin control no sirve de nada.

AdjuntoTamaño
Office spreadsheet icon HipervinculoaArchivo.xls22.5 KB

 

------
Ya sé Excel, pero necesito más.

arguerof
Imagen de arguerof
Offline
última acción: Hace 14 años 4 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntos
alta: 20/04/2009 - 20:30
Puntos: 660
Re: Buscar

excelente, pero ahora me abre la carpeta pero el archivo en .rar dentro de la carpeta no me lo puede abrir.

ej:

/carpeta/archivo.rar

Gracias

 

arguerof
Imagen de arguerof
Offline
última acción: Hace 14 años 4 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntos
alta: 20/04/2009 - 20:30
Puntos: 660
Re: Buscar

ya esta me faltaba ponerle la extencion, la cuestion es si es .zip todo bien...pero si es punto .pdf no lo habre. ya que no se cual de los dos es.

habra una forma para averiguar antemano q extencion es?

 

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 18 horas 39 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 11175
FileSystemObject

Para ver propiedades de los archivos dispones del objeto FileSystemObject, que proporciona acceso al sistema de archivos del equipo.

por ejemplo, para obtener la extensión de un archivo:

Function ExtensionArchivo(Ruta As String) as String
Dim fs As Object
    Set fs = CreateObject("Scripting.FileSystemObject")
    ExtensionArchivo = fs.getextensionname(Ruta)
        
    Set fs = Nothing
End Function

 


------
Ya sé Excel, pero necesito más
La potencia sin control no sirve de nada.

 

------
Ya sé Excel, pero necesito más.

arguerof
Imagen de arguerof
Offline
última acción: Hace 14 años 4 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntos
alta: 20/04/2009 - 20:30
Puntos: 660
Re: Buscar

amigo si yo le pongo la opcion concatenar y le agrego *.* no me abre los pdf pero si los zip  porque?

 

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 18 horas 39 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 11175
Re: Buscar

yo he probado con un pdf y sí lo abre

no entiendo eso de *.*

¿podrías adjuntar un ejemplo?


------
Ya sé Excel, pero necesito más
La potencia sin control no sirve de nada.

 

------
Ya sé Excel, pero necesito más.

arguerof
Imagen de arguerof
Offline
última acción: Hace 14 años 4 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntos
alta: 20/04/2009 - 20:30
Puntos: 660
Re: Buscar

hable de mas! ja

ahora amigo otra problem viste que me pasaste esta funcion ---- ActiveWorkbook.FollowHyperlink Range("i5")

va de diez, pero sino abro el hipervinculo me salta un error.

 

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 18 horas 39 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 11175
Re: Buscar

necesito más

¿qué error? ¿cuándo se produce exactamente?


------
Ya sé Excel, pero necesito más
La potencia sin control no sirve de nada.

 

------
Ya sé Excel, pero necesito más.

arguerof
Imagen de arguerof
Offline
última acción: Hace 14 años 4 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntos
alta: 20/04/2009 - 20:30
Puntos: 660
Re: Buscar

Amigo, al accionar el boton me dice:

abriendo archivo------

algunos de estos archivos puede tener virus o .....

desea abrirlo?

SI LE DOY ACEPTAR LO ABRE, PERO SI LO CANCELO ME PONE UN ERROR EN TIEMPO DE EJECUCION. Y ME DA LA OPCION DE DEPURAR.

GRACIAS X TU ATENCION!