¿Cómo aplicar hypervínculo automático de una celda Excel a una página pdf?
Alguien me podría ayudar con una macro para abrir un archivo pdf y mostrar la página correspondiente a el valor de mi celda celda Excel, gracias por la ayuda =).
1 respuesta
¿Cómo se llama el archivo pdf?
¿Cómo se llama la carpeta donde tienes el archivo pdf?
¿En cuál celda tienes el número de página?
Revisa en tu equipo e investiga dónde tienes tu programa Adobe Reader, nombre de la carpeta y nombre del programa. Por ejemplo, en mi equipo lo tengo así:
"C:\Program Files\Adobe\Reader 11.0\Reader\AcroRd32.exe"
Ah ! Y cambia tu pregunta a pública, no la pongas como "anónimo"; es para que yo pueda darle seguimiento a tu pregunta. Finalmente tu nombre de usuario puede ser un alias. Pero no la pongas como "anónimo".
Comprendo, gracias por sus comentarios, en el mismo orden contesto a sus preguntas.
C:\Users\Maria\Documents\"EXP-MTOBA-2021.pdf" 'Ruta y nombre del archivo
En La imagen la celda A3 contiene el nombre del archivo y en las siguientes columnas B-H contienen los núm. De páginas del archivo pdf.
"C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32"
Gracias por su atención, excelente fin de semana.
Realiza lo siguiente:
1. Selecciona la celda con la página en donde quieres que se abra el pdf, en tu ejemplo, selecciona la celda B3.
2. Ejecuta la siguiente macro:
Public Sub Open_PDF_At_Page()
Dim PDFfile As String
Dim AdobeCommand As String
Dim cAdobeReaderExe As String
Dim carpeta As String
Dim fila As Long
Dim pag As Variant
'
carpeta = "C:\Users\Maria\Documents\"
cAdobeReaderExe = "C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe"
'
fila = ActiveCell.Row
pag = ActiveCell.Value
'
PDFfile = carpeta & Range("A" & fila).Value
If Not (IsNumeric(pag) And pag > 0) Then
MsgBox "No es un número de hoja"
Else
If Dir(PDFfile) = "" Then
MsgBox "El archivo no existe"
Else
Nota: Tuve que poner la macro en 2 partes, porque la segunda parte tiene caracteres que el editor del foro no permite.
Debe quedar así:
¡Gracias!
Lo pondré en practica, saludos!
Hola Dante, buenas noches, referente a la macro la he copiado tal cual, sin embargo me marca un error de sintaxis en esta línea:
AdobeCommand=" /a""page=" & pag & "=Open Actions"" "
Me podrías decir por favor en que consiste dicho error, gracias de antemano.
Revisa que estén bien los espacios entre las comillas. Copia y pega lo siguiente:
AdobeCommand = " /a ""page=" & pag & "=Open Actions"" "
