macro para crear hipervinculos automaticamente

11/11/2006 - 04:08 por molder41 | Informe spam
hola
quisiera saber si me podian ayudar en crear un macro para crear
hipervinculo hacia archivos pdf que tienen diferentes ruta en excel


gracias

Preguntas similare

Leer las respuestas

#1 Vinchenzo vinç
11/11/2006 - 13:00 | Informe spam
<@> escribió en el mensaje news:
hola
quisiera saber si me podian ayudar en crear un macro para crear
hipervinculo hacia archivos pdf que tienen diferentes ruta en excel




Hola,
una macro que te cree un hipervínculo a un fichero ubicado en "c:\Fichero.Pdf", en la celda A1 de la hoja activa, con el texto "Mi Hipervínculo", con la información de pantala (el ToolTipText al pasar el puntero por encima) "Enlace a mi PDF", sería así:

'****************
ActiveSheet.Hyperlinks.Add _
Anchor:=Range("A1"), _
Address:="c:\Fichero.Pdf", _
TextToDisplay:="Mi Hipervínculo", _
ScreenTip:="Enlace a mi PDF"
'****************


Saludos
( ! ) Respuestas precedentes en Google:
http://groups.google.com/group/micr...c.es.excel
( i ) Temperancia en el foro:
http://support.microsoft.com/defaul...newsreglas
Respuesta Responder a este mensaje
#2 molder41
11/11/2006 - 18:29 | Informe spam
gracias esa parte me sirve, pero en mi caso una hoja de excel llamada
indice lo cual el vinculo es una codificacion ejem. 222-3333-4444 y los
archivos tienen el codigo que le corresponde,
en los cuales las estructura de las carpetas es la siguiente:

d:\PDF\A

dentro de la carpeta A se encuentra los PDF, como seria el macro pero
sin darle el nombre uno por uno de los archivos

gracias
Respuesta Responder a este mensaje
#3 Vinchenzo vinç
13/11/2006 - 21:15 | Informe spam
<@> escribió en el mensaje news:
gracias esa parte me sirve, pero en mi caso una hoja de excel llamada
indice lo cual el vinculo es una codificacion ejem. 222-3333-4444 y los
archivos tienen el codigo que le corresponde,
en los cuales las estructura de las carpetas es la siguiente:

d:\PDF\A

dentro de la carpeta A se encuentra los PDF, como seria el macro pero
sin darle el nombre uno por uno de los archivos




Para listar los ficheros contenidos en una carpeta, puedes usar la propiedad '.FileSearch' del objeto 'Application'.
El siguiente ejemplo te listará en la columna 'A' todos los ficheros PDF que encuentre en la ruta especificada:

'*******************
Sub ListarPDFs(ByVal strCarpeta As String)
Range("A:A").Clear
With Application.FileSearch
.NewSearch
.LookIn = strCarpeta
.FileName = "*.pdf"
If .Execute <> 0 Then
Dim i As Long
For i = 1 To .FoundFiles.Count
ActiveSheet.HyperLinks.Add _
Anchor:=Cells(i, 1), _
Address:=.FoundFiles(i), _
TextToDisplay:=Nombre(.FoundFiles(i)), _
ScreenTip:=.FoundFiles(i)
Next
Else
MsgBox "No hay ficheros PDF en " & strCarpeta, vbInformation
End If
End With
End Sub

Function Nombre(ByVal strRuta As String) As String
Nombre = Mid$(strRuta, InStrRev(strRuta, "\") + 1)
Nombre = Left$(Nombre, InStrRev(Nombre, ".") - 1)
End Function
'*******************

Y llamarías así:
Call ListarPDFs("d:\PDF\A")

Si quisieras que también se recorriesen las subcarpetas, en el 'With' añades la línea:
.SearchSubFolders = True


Saludos
( ! ) Respuestas precedentes en Google:
http://groups.google.com/group/micr...c.es.excel
( i ) Temperancia en el foro:
http://support.microsoft.com/defaul...newsreglas
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida