Jump to content

[SOLUCIONADO] Hipervínculo Excel a Pdf


Recommended Posts

Respuesta: Hipervínculo Excel a Pdf

la solucion mas rapida va por la adaptacion del código que elejiste:

Sub test() 'modificacion para un archivo,
    ruta = Range("B7") 'se debe seleccionar la celda que tiene el nombre del archivo
    Ejecutable = Range("B6") 'de lo contraro fallará
    'uf = Range("E" & Cells.Rows.Count).End(xlUp).Row
    'For fil = 9 To uf
        arch = ActiveCell & ".pdf" 'Range("E" & fil) & ".pdf"
        arch = ruta & arch
        Abrir = Shell(Ejecutable & " " & arch, vbMaximizedFocus)
    'Next fil
End Sub

por otra parte yo apunte a soluciones ligeramente diferentes:

sol1:

Sub AbrePDF_ST()
    Archivo = Application.InputBox("Seleccione un archivo PDF" & vbCrLf & "(escoja una celda)" _
    , "Gestor de apertura de pdfs .....by ST", Type:=8)
    Ejecutable = "C:\Archivos de programa\Adobe\Acrobat 7.0\Reader\AcroRd32.exe" '"C:\Archivos de programa\Adobe\Reader 9.0\Reader\AcroRd32.exe"
    rutArchivo = ThisWorkbook.Path & "\" '"C:\Documents and Settings\oficina\Mis documentos\"
    arch = rutArchivo & Archivo & ".pdf"
    If Archivo = Empty Then Exit Sub
    On Error GoTo fin
        Abrir = Shell(Ejecutable & " " & arch, vbMaximizedFocus): Exit Sub
fin:
    MsgBox "el archivo no existe en la ruta especificada"
End Sub

sol2:

Sub crea_lista_de_PDFs()
    u = Range("E" & Rows.Count).End(xlUp).Row '+ 1
For i = 10 To u
    el_pdf = "pdf" & i - 9 & ".pdf"
    ActiveSheet.Hyperlinks.Add Anchor:=Range("E" & i), _
    Address:=ThisWorkbook.Path & "\" & el_pdf, _
    ScreenTip:=ThisWorkbook.Path & "\" & el_pdf, _
    TextToDisplay:="pdf" & i - 9
Next i
    Range("e9").Select
End Sub

sol3:

Sub Crar_Lista_PDFs_localizando_Archivos()
' Muestra los archivos de un directorio/carpeta
MiRuta = ThisWorkbook.Path & "\"  ' Establece la ruta.
MiPDF = Dir(MiRuta)    ' Recupera la primera entrada.
i = 1
Do While MiPDF <> ""    ' Inicia el bucle.
    ' Ignora el directorio actual y el que lo abarca.
    If MiPDF <> "." And MiPDF <> ".." Then
        If Right(MiPDF, 3) = "pdf" Then
            ActiveSheet.Hyperlinks.Add Anchor:=Range("E" & i + 8), _
            Address:=MiRuta & MiPDF, _
            ScreenTip:=MiRuta & MiPDF, _
            TextToDisplay:=MiPDF
        End If
    End If
    MiPDF = Dir    ' Obtiene siguiente entrada.
    i = i + 1
Loop
End Sub

cada propuesta en una hoja diferente para que cheques su funcionamiento y código a detalle.

las 4 son 'enteramente' funcionales,elije la mas sencilla de entender para ti,lo importante es que vayas adicionando concimientos :D

abrir pdfs con hipervinculo ST.zip

Link to post
Share on other sites

Respuesta: Hipervínculo Excel a Pdf

Muchas gracias ST por el tiempo y la dedicación que has tenido en desarrollar estos magnificos ejemplos. Ya he adapatado los dos primeros códigos a mi plantilla y funciona perfectamente. Voy a intentarlo con los dos siguientes, si me surge alguna duda ya te lo comento.

Gracias por enseñar a las personas que estamos empezando en esto

Saludos, Feliz 2010

Link to post
Share on other sites

Respuesta: Hipervínculo Excel a Pdf

...Ya he adapatado los dos primeros códigos a mi plantilla y funciona perfectamente. Voy a intentarlo con los dos siguientes, si me surge alguna duda ya te lo comento......

ok me agrada que estes en plan de aprender ya que al tener 4 soluciones bien pudiste tomar alguna de ellas y olvidarte del asunto.

lo destco por que este es el tipo de conductas que esperamso del resto de los foreros :D

Link to post
Share on other sites
Guest
This topic is now closed to further replies.


×
×
  • Create New...

Important Information

Privacy Policy