Abrir un archivo pdf

Alguien me podría ayudar para abrir un archivo PDF creando una macro
en foros encontré esto pero me marca el siguiente error
error de compilación:
Se esperaba End Sub
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Carpeta = "C:\"
Archivo = "Reporte.pdf"
If Target.Address(False, False) = "A2" And Target.Value = "Reporte" Then
Shell ("start " & Carpeta & Archivo)
End If
End Sub
¿Alguien me podría ayudar que le fanta?

1 respuesta

Respuesta
1
A ver entiendo que quieres abrir un archivo de PDF desde Excel y que el nombre del archivo lo tome del valor de una celda.
Aclarame esto
>Un saludo
>Julio
Hola Julio buen día
Efectivamente trato de abrir un archivo en PDF y esto sera con la condición de que en la celda A2 coincida con el nombre de dicho archivo
O también si se puede hacer mediante un vinculo o presionando un botón, estoy abierto a cualquier sugerencia, lo que si quiero es abrir un archivo PDF de la manera que se lo indique no importa, de hecho podrían ser varios archivos a abrir por ello mencione lo de lacelda como condición
Saludos
Vamos a ver lo primero que hay que comprobar es el lugar de instalación de Acrobat Reader en tu máquina,(o en la máquina donde se va a ejecutar la macro) te explico, la macro ejecuta primero la apertura del programa que va a abrir el archivo si la ruta no es correcta te dará error.
Podemos poner un botón en la hoja y asignarle la macro:
Private Sub CommandButton1_Click()
archivo = Range("A2").Value
ChDir "C:\" 'Aquí debes poner la ruta donde esta tu archivo PDF
RetVal = Shell("C:\Archivos de programa\Adobe\Reader 8.0\Reader\AcroRd32.exe " + archivo + ".pdf", vbNormalFocus)
'Hay que verificar la ruta donde esta el .exe(Acrobat reader) que abre el archivo y la version
End Sub
>Un saludo
>Julio
Julio buen día anexe lo que me propusiste pero me marca error, te anexo los datos que coloque, en la parte señalada me marca error, confirmo el nombre del archivo y esta correcto en la ubicación y escrito con ese nombre
Private Sub CommandButton1_Click()
archivo = Range("A2").Value
ChDir "C:\elra.pdf"
RetVal = Shell("C:\Archivos de programa\Adobe\Acrobat 7.0\Acrobat\Acrobat.exe " + elra + ".pdf", vbNormalFocus)
'Hay que verificar la ruta donde esta el .exe(Acrobat reader) que abre el archivo y la version
End Sub
Saludos
No has entendido lo que hace la macro, cuando ponemos archivo=Range("A2"). Value estamos diciendo que el archivo a abrir sea el valor que hay en la celda A2 dá igual el valor que sea.
Private Sub CommandButton1_Click()
archivo = Range("A2").Value
ChDir "C:\"
RetVal = Shell("C:\Archivos de programa\Adobe\Acrobat 7.0\Acrobat\Acrobat.exe " + archivo + ".pdf", vbNormalFocus)
End Sub
Donde tienes que poner el nombre del archivo a abrir es en la celda A2 y el archivo pdf tiene que estar en la unidad C:\
>Un saludo
>Julio

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Abrir PDF desde una ruta especificada en un textbox

Espero me puedan ayudar... Tengo un formulario en el cual en un textbox tengo la ruta completa de un archivo pdf, quisiera generar un botón al lado de este textbox el cual me permita abrir el archivo, he intentado generar el siguiente código: Private...
1 respuesta

Macro para llamar archivos pdf

Me puedes ayudar para realizar este macro Tengo un archivo exel. Quiero realizar un botón para realizar un llamamiento de archivo pdf Que se encuentra en el c:monitoreos\a1pdf,a2pdf, a3pdf Quiero llamar al archivo a1pdf Pero quiero que al presionar...
1 respuesta

Macro para abrir un archivo .pdf

Como podría ser el código (macro) para abrir un archivo que esta en acrobat (.pdf); es decir, en excel tengo y mis cálculos y el formato esta en acrobat (.pdf).
1 respuesta

Imprimir con macros archivos pdf des un listado en excel(respondido)

Buena Necesito tu ayuda Tengo un listado una hoja excel con el nombre de archivo pdf, están linkeados a los archivos en una carpeta definida llamada activos. Necesito que lea el contenido de la primera celda e imprima a una el archivo en impresora...
2 respuestas

Buscar un archivo a partir del valor de una celda en excel (macro)

No se si se pueda realizar lo siguiente: lo que quiero es que a partir de un valor escrito en una celda de excel pueda ejecutar una macro la cual me busque en una carpeta de mi pc el archivo con el nombre que esta en la celda, si lo localiza me de un...
1 respuesta

Como puedo abrir un archivo PDF determinado.

Necesito saber como puedo abrir un archivo PDF, ya determinado, al apretar un botón en un frame desde visual y si la forma para hacer esto es aplicable también para word, exel, etc.
1 respuesta

Problema VB-Acrobat Reader

Espero me puedas ayudar en lo siguienre, estoy haciendo un tutotial en formato .pdf, pero quiero que desde un botón de VB se abra la aplicación Acrobat Reader y que al abrirse me muestre mi tutorial, como quiero instarlo donde yo desee uso el app....
1 respuesta

Macro para generar hipervínculos con parte del nombre.

Necesito crear una macro que me genere hipervínculos. Tengo una hoja con un listado de códigos, de 5 números, y cada código está asociado a un archivo pdf. He probado varias opciones pero el problema que tengo es con la secuencia de la ruta, ya que...
2 respuestas

Macro para abrir pdf desde excel

Tengo un excel con macros, una de las cuales imprime informes en pdf dentro de: "C:/Informes" Quiero crear una macro que me abra un cuadro de diálogo, en el cual, indicando el nombre del archivo, me abra el pdf. O, si eso no es posible, al menos que...
4 respuestas

Como abrir un PDF desde botón Access

Tengo una Base de datos y desde el formulario almacenamos la Ruta de alguna imagen o pdf relacionado con el cliente, la pregunta es como puedo mediante algún botón por ejemplo, abrir el PDF relacionado ya que he probado con Me. WebBrowser. Navigate...
2 respuestas