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.
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.
es un plano que esta comprimido en un .rar o sea abrir un .rar
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.
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 ?
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.
------
Ya sé Excel, pero necesito más.
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
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?
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.
amigo si yo le pongo la opcion concatenar y le agrego *.* no me abre los pdf pero si los zip porque?
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.
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.
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.
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!