Ayuda con Hipervínculos

29/03/2008 - 14:04 por Jorge | Informe spam
Srs.
Frecuentemente debo consultar documentos (Guías, facturas) en un sistema que
tiene mi empresa. Para eso tengo que abrir la página principal del sistema,
ingresar mi clave, seleccionar un monton de opciones, despues ingresar el
numero de documento esperar que se abra otra pagina con lo que quiero. Me di
cuenta que la dirección de la página que se abría era algo así:

http://miempresa:7080/DTEPlus/gesFactura.jsp?folio•6845...125

donde 956845 es el número del documento y si cambiaba directamente ese
número en la barra de dirección me salía más rápido, evitando todo lo demás.

Bueno mi pregunta es la siguiente:
Es posible generar algún código (macro) que me lea el número que ingreso en
una celda cualquiera e internamente lo concatene a la dirección y siga el
hipervinculo para abrir el documento deseado?

De antemano muchas gracias

Preguntas similare

Leer las respuestas

#1 Jorge
30/03/2008 - 00:56 | Informe spam
Gracias Hector por tu pronta respuesta.
La verdad ya había intentado con esa formula en una hoja, pero la idea era
realizar la concatenación del link y del número de documento en la celda, y
el llamado del hipervínculo desde una macro. Estoy recién comprendiendo el
mundo del VB por lo que me resulta dificil aún.
No se si he sido claro con mi necesidad, la idea es posicionarse en una
celda que contiene un número de documento y al teclear un acceso directo a
una macro, esta me abra la pagina correspondiene al documento selecionado
según el link que resultó de la concatenación de una dirección fija más el
número(valor) en la celda.

Saludos

"Héctor Miguel" escribió:

hola, Jorge !

prueba usando la funcion de hoja de calculo =hipervinculo("direccion_del_salto","texto_en_la_celda")
indicando alguna ruta a donde se encuentre ya el documento (jpg, gif, pdf, ...) que quieres que se abra (ventana aparte)
-> revisa la siguiente pagina de David McRitchie:
Coding a link address and friendly name using HYPERLINK Worksheet function
http://www.mvps.org/dmcritchie/exce...#hyperlink

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

__ la consulta original __
> Frecuentemente debo consultar documentos (Guias, facturas) en un sistema que tiene mi empresa.
> Para eso tengo que abrir la pagina principal del sistema, ingresar mi clave, seleccionar un monton de opciones
> despues ingresar el numero de documento esperar que se abra otra pagina con lo que quiero.
> Me di cuenta que la direccion de la pagina que se abria era algo asi:
> http://miempresa:7080/DTEPlus/gesFactura.jsp?folio•6845...125
> donde 956845 es el numero del documento y si cambiaba directamente ese numero en la barra de direccion
> me salia mas rapido, evitando todo lo demas.
> Es posible generar algun codigo (macro) que me lea el numero que ingreso en una celda cualquiera
> e internamente lo concatene a la direccion y siga el hipervinculo para abrir el documento deseado?



Respuesta Responder a este mensaje
#2 Héctor Miguel
30/03/2008 - 03:13 | Informe spam
hola, Jorge !

... ya habia intentado con esa formula en una hoja
pero la idea era realizar la concatenacion del link y del numero de documento en la celda
y el llamado del hipervinculo desde una macro.
... la idea es posicionarse en una celda que contiene un numero de documento
y al teclear un acceso directo a una macro, esta me abra la pagina correspondiene al documento selecionado
segun el link que resulto de la concatenacion de una direccion fija mas el numero(valor) en la celda.



puedes probar el metodo FollowHyperlink aplicado a un objeto Workbook
para la concatenacion de las partes fijas de la direccion y del numero del documento (p.e. en la celda activa)
prueba definiendo variables constantes al inicio de un modulo de codigo estandar/general/normal/...

una macro podria ser +/- como la siguiente (la ejecutas desde la celda con el numero del documento):

Public Const Inicio As String = "http://miempresa:7080/DTEPlus/gesFactura.jsp?folio="
Public Const Cierre As String = "...125"
Sub Ir_al_documento()
ActiveWorkbook.FollowHyperlink Inicio & ActiveCell.Text & Cierre
End Sub

saludos,
hector.
Respuesta Responder a este mensaje
#3 Jorge
30/03/2008 - 05:32 | Informe spam
Hector.
Me funcionó a la perfección, muchas gracias.
Solo una consulta más respecto de VB.
En caso que el documento no exista, o no haya conección al servidor. Como le
hago para que aparezca un mensaje indicando que lo intente nuevamente en vez
de que aparezca un error en tiempo de enjecución.

Muchas gracias por tu tiempo Hector

"Héctor Miguel" escribió:

hola, Jorge !

puedes probar el metodo FollowHyperlink aplicado a un objeto Workbook
para la concatenacion de las partes fijas de la direccion y del numero del documento (p.e. en la celda activa)
prueba definiendo variables constantes al inicio de un modulo de codigo estandar/general/normal/...

una macro podria ser +/- como la siguiente (la ejecutas desde la celda con el numero del documento):

Public Const Inicio As String = "http://miempresa:7080/DTEPlus/gesFactura.jsp?folio="
Public Const Cierre As String = "...125"
Sub Ir_al_documento()
ActiveWorkbook.FollowHyperlink Inicio & ActiveCell.Text & Cierre
End Sub

saludos,
hector.


> ... ya habia intentado con esa formula en una hoja
> pero la idea era realizar la concatenacion del link y del numero de documento en la celda
> y el llamado del hipervinculo desde una macro.
> ... la idea es posicionarse en una celda que contiene un numero de documento
> y al teclear un acceso directo a una macro, esta me abra la pagina correspondiene al documento selecionado
> segun el link que resulto de la concatenacion de una direccion fija mas el numero(valor) en la celda.

Respuesta Responder a este mensaje
#4 Héctor Miguel
30/03/2008 - 08:14 | Informe spam
hola, Jorge !

En caso que el documento no exista, o no haya coneccion al servidor.
Como le hago para que aparezca un mensaje indicando que lo intente nuevamente
en vez de que aparezca un error en tiempo de enjecucion.



para consultar si el servidor de tu empresa esta disponible (o no) usando algunas API's
consulta estas secciones en la pagina de Randy Birch:
- Visual Basic Network Services
IsNetworkAlive: Determine Network Connection State
http://vbnet.mvps.org/code/network/...kalive.htm
- Visual Basic Network Services
NetShareCheck: Determine Remote Folder or Device Share Status
http://vbnet.mvps.org/code/network/...echeck.htm

para determinar si algun archivo existe (o no) prueba con el metodo Dir("especificacion del archivo") p.e.
If Dir("c:uta y sub\carpetas a\tu archivo.xyz") = "" Then
MsgBox "El archivo no existe, intentalo de nuevo."
Else
' aqui tus acciones en caso de ser un archivo existente ... '
End If

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