Excel. Macro para Abrir archivos PDF desde Excel de forma Fácil.

[@andresledesma602]

Fácil de entender la explicación, con una programación simple. Gracias.

[@todoenprogramacion9492]

Gracias por comentar!

[@CristianMedina-po5pb]

Funciona para abrir cualquier tipo de archivos, no solo PDF... Justo lo que buscaba! Mil gracias

[@todoenprogramacion9492]

gracias por comentar, saludos!

[@lapislazu4852]

sabes como puedo adaptarlo para documento de word?

[@CristianMedina-po5pb]

@@lapislazu4852 ya probaste poniendo la dirección (path) del documento (incluyendo el nombre del archivo, finalizando con ".docx")? Si es para abrir Microsoft word en general, la dirección a poner sería el ".exe" al buscar dónde está instalado word en tu computador

[@elvimadrid97]

Excelente!!! me ayudaste mucho gracias

[@todoenprogramacion9492]

Gracias a ti por comentar!

[@mikem7294]

wow !! increible video gracias !!! saludos

[@todoenprogramacion9492]

Gracias por comentar, saludos!

[@canekpakal6482]

Gracias por el tip suscrito

[@todoenprogramacion9492]

Gracias a ti

[@jovanibernabealvareztrejo9242]

Gracias, pregunta y si solo quiero asociar la busqueda a los primeros 7 caracteres del nombre del documento, podrias explicarme, gracias.

[@edgargarcia149]

como colocas el simbolo comilla invertida que va en el active?

[@JonathanGonzalez-rs8gf]

Muy interesante el método que utilizas para vincular archivos PDF, sobre todo porque esta opción resuelve la necesidad de crear vínculos rápidos cuando se trata de miles de archivos, no imagino el tiempo que se llevaría hacerlo de forma manual. Tu ejemplo me ayuda a resolver la primera necesidad que es abrir el PDF de manera general ya que lo necesitaba para aplicarlo a mi base de datos, pero también necesito otra macro (o en la misma macro) que me de la opción de abrir el pdf y mostrar una pagina especifica del mismo archivo vinculado., Es decir, supongamos que el archivo pdf de Pedro contiene 100 paginas y el usuario solo quiere ver las paginas de su interés(las paginas serán discontinuas), para ello es necesario incluir a tu ejemplo una matriz con 5 columnas más a las que llamaré A,B,C,D,E y en cada una escribiré el número especifico de pagina y cuando seleccione la celda que contiene el numero de pagina, se abra el pdf y muestre la pagina correspondiente al dar clic en el botón "abrir PDF y mostrar pagina". ¿Podrías ayudarme por favor a resolver esta necesidad?, muchas gracias de antemano.Saludos!

[@todoenprogramacion9492]

hola jonathan como estas? Sub abrirprograma() Dim pagina As Long nombrearchivo = Range("B4").Value pagina = Range("C4").Value Shell "C:\Program Files\Internet Explorer\iexplore.exe " & "C:\Users\HP\Documents\" & nombrearchivo & ".pdf" & "#page=" & CLng(pagina) End Sub espero esta macro te sirva para lo que necesitas. En este código, en la celda B4 coloco el nombre del pdf, en la celda C4 coloco la pagina que quiero abrir de dicho pdf. en el Shell primero coloco la ruta del programa internet explorer en mi pc seguido de la ruta del archivo y la pagina del pdf.

[@JonathanGonzalez-rs8gf]

@@todoenprogramacion9492 Buenas noches estimado, esperando que goces de buena salud, te comento que he cambiado la ruta donde se encuentran los pdf's y he colocado el nombre del archivo y el número de página tal y como me lo indicas, sin embargo al ejecutarlo me marca el siguiente error: "Se ha producido el error '53' en tiempo de ejecución: Archivo no encontrado." Es importante aclarar que tengo Win10 con Microsoft Edge como navegador predeterminado, aunque utilizo el Google Crome como navegador principal. Por otro lado, he intentado cambiar la ruta del Shell "C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe ", para abrirlo con este programa, pero tampoco lo he logrado, me manda el siguiente error: "Error al abrir el documento. El archivo no se encuentra." El nombre del pdf lo he copiado y lo he pegado tal cual, solicito nuevamente de tu valiosa ayuda para resolver dichos errores, gracias por tu apoyo. Saludos cordiales.

[@todoenprogramacion9492]

@@JonathanGonzalez-rs8gf yo tambien tengo win10. yo tenia tu mismo error y era un simple espacio que tenia de mas en la ruta del shell. revisa esa parte. saludos

[@JonathanGonzalez-rs8gf]

@@todoenprogramacion9492 Saludos cordiales, por más que le busco no encuentro el error, la ruta del shell la copie tal cual, qué más puedo hacer?. Gracias por la atención. Sub abrirprograma() Dim pagina As Long nombrearchivo = Range("B4").Value pagina = Range("C4").Value Shell "C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe" & "C:\Users\Luis\Documents\Expedientes\" & nombrearchivo & ".pdf" & "#page=" & CLng(pagina) End Sub

[@todoenprogramacion9492]

ni usando internet explorer?

[@isactingalz.4891]

Ecelente video, y si yo quisiera la misma función pero que abra los archivos .pdf solo reconociendo las primeras letras del nombre del archivo PDF

[@JessicaGutierrezTorres]

gracias me ha servido de maravilla y le he complementado con mis conocimientos y he creado herramientas que me ayudan mucho en mi empleo, solo que tengo un detalle que me quema el coco espero me puedas ayudar. yo puse numeros de folios y si me muestra el pdf pero yo entiendo que se tiene que seleccionar la celda del numero del folio primero. y en ocaciones mis compañeros no lo entienden y sellecionan el nombre o celda siguiente. me podrias ayudar con como hacer que al seleccionar otra celda y pinchar el boton salga un mensaje de "primero selecciona un numero de folio" de verdad que te agradezco mucho tu ayuda.

[@todoenprogramacion9492]

Saludos. Suena interesante lo que propones y claro que se puede. Voy a intentarlo y te mando el código.

[@jessicagutierreztorres3588]

Desde ya muchas gracias

[@todoenprogramacion9492]

esto te podría servir en algo. En mi caso en la segunda columna (B) se encuentran los códigos, por eso si no seleccionan esa columna muestro el mensaje. Segundo si esta seleccionada una celda vacía, también muestro el mensaje: If ActiveCell.Column = 2 And ActiveCell "" Then archivopdf = "C:\Users\HP\Documents\bayron\canal\" & ActiveCell.Value & ".pdf" ActiveWorkbook.FollowHyperlink archivopdf Else MsgBox "debe seleccionar un codigo" End If

[@jessicagutierreztorres3588]

@@todoenprogramacion9492 lo pondré y veré qué tal. Muchas gracias ☺️☺️

[@todoenprogramacion9492]

@@jessicagutierreztorres3588 Dale. Me cuentas

[@DanielMendoza-nj7he]

pero cuando por accidente lo seleccionas a un nombre y le das al boton te sale un error como solucionarías ese error

[@ramirosaezsaldias6128]

Hola rey, como se haría para crear un botón para subir un archivo pdf y ese archivo se "incruste" en el Excel?

[@icarmona392]

Que diferencia exite de añadir un hipervinculo anexando la ruta a un pdf?

[@todoenprogramacion9492]

La verdad no sé. jeje

[@fernandorodriguez-iy3jk]

Que no tenes que linquiar y después si falla tenes que hacer todo lo mismo y si el registro es grande es interminable

[@harlesepc5906]

Me gustaria saber que codigo hay que agregarle para que imprima solamente las dos primeras hojas de archivo abierto del pdf.

[@todoenprogramacion9492]

Gracias por comentar. No sabría como hacerlo, pero voy averiguar, saludos!

[@harlesepc5906]

@@todoenprogramacion9492 Dale gracias.. es una tarea que tuve pendiente y bueno quiero lograrlo.

[@nievesrojas5727]

Hola, si además de abrir el archivo quisiera imprimirlo y luego cerrar todo. Por favor

[@JavierLopez-qy7js]

Hola buena tarde, me gustaría saber cómo sería mediante un link o documento en Share Point o teams. Muchas gracias

[@emilianofariasavalos8933]

Hola buenas, excelente video. Te hago una consulta, se puede generar un codigo que cuando abra el archivo PDF lo imprima?

[@todoenprogramacion9492]

seria interesante. Voy a intentarlo y te comento. Gracias por consultar

[@brenalcantara1705]

Al momento de hacer uso del boton no me deja y me arroja esto: Se ha producido el error '424' en tiempo de ejecución: Se requiere un objeto" ¿A que se debe?

[@antonioesquivelmoreno8670]

Excelente, felicidades. cómo se haría para que cuando ejecute la macro me pregunte en un msgbox la carpeta que quiero vincular?

[@Sin-x89]

hola bro, una consulta, si quisiera abrir en una carpeta cualquiera, pero solo tengo ahi dentro un archivo pdf, con el codigo ingresar a esa carpeta y sin siquiera conocer el nombre del pdf abrirlo desde vba es posible?? ten en cuenta que es el unico archivo pdf dentro de esa carpeta, ,mi intencion es que abra y imprima, en el ejercicio lo hacemos conociendo el nombre.

[@todoenprogramacion9492]

Con el método que uso necesitamos saber el nombre del archivo de antemano. No conozco otro método pero si lo averiguo te comento. Gracias por comentar

[@Sin-x89]

@@todoenprogramacion9492 gracias

[@andresbueno5619]

Hola, Se puede hacer una macro que me busque info en un pdf y en excel me diga si cumple o no?

[@todoenprogramacion9492]

Lo he realizado a través del lenguaje Python pero nunca desde Excel. Sería un reto interesante hacerlo. Lo intentaré. Gracias por comentar

[@JuanDa21]

Buen dia caballero, si solicito lo mismo pero con carpetas que debo hacer? Muchas gracias por tu enseñanza

[@todoenprogramacion9492]

A que te refieres?

[@pauldelacruzcancho3749]

En vez de abrir el PDF puedes mandarla a imprimir?

[@marcelosebastianmorales9297]

Primero que todo, gracias por este gran aporte. Quisiera saber como crear un mensaje, en esta misma macro, en el caso de que no exista el PDF en la carpeta de origen. Saludos y muchas gracias.

[@todoenprogramacion9492]

Hola Marcelo, gracias por comentar. Espero esto te sirva: Sub abrirpdf() archivopdf = "C:\Users\HP\Documents\bayron\canal\" & ActiveCell.Value & ".pdf" On Error GoTo Errmsg ActiveWorkbook.FollowHyperlink archivopdf Exit Sub Errmsg: MsgBox "Archivo no encontrado" & vbCrLf & Err.Description End Sub

[@juanfernandojf2871]

Excelente ejercicio, como haría para hacer referencia que abra archivos sólo de una columna en especifico mas no de cualquier celda que seleccioanda? gracias.

[@todoenprogramacion9492]

If ActiveCell.Column = 2 And ActiveCell "" Then archivopdf = "C:\Users\HP\Documents\bayron\canal\" & ActiveCell.Value & ".pdf" ActiveWorkbook.FollowHyperlink archivopdf Else MsgBox "debe seleccionar un código de la columna Identificación" End If Nota: teniendo en cuenta que tu columna de identificación esté en la segunda columna de la hoja

[@juanfernandojf2871]

@@todoenprogramacion9492Gracias por la info.

[@todoenprogramacion9492]

@@juanfernandojf2871 gracias a ti por comentar

[@Armando-pw6gf]

Excelente explicación, ejecute el codigo y al abrir el Pdf me cierra la imagen de manera automatica en cuestion de segundos. ¿Como soluciono eso? Saludos.

[@Aventuras22]

Hola buen día tengo un problema en el código en me marca un error en el segundo renglón de Active... me podrías ayudar por favor

[@todoenprogramacion9492]

Que error te aparece?

[@ErickRodriguez-fd6wr]

Si tengo el archivo en carpeas diferentes como seria, me refiero a que tengo creada una carpeta para cada uno de los nombers como lo tienes, pedro tiene una carpeta independiente y ahi se ecuentra su PDF, esto mismo para diferentes empleados.

[@todoenprogramacion9492]

las carpetas tienen el nombre del trabajador y dentro hay un pdf con el numero de identificacion del empleado?

[@ErickRodriguez-fd6wr]

@@todoenprogramacion9492 Asi es

[@Mundo773]

no me deja buscar docuemnto, ya que mi busqueda lo hago desde una lista

[@todoenprogramacion9492]

Si quieres me compartes tu código para ver como puedo ayudarte. Saludos!

[@albertochacon2946]

Hola, me parece perfecto el poder aprender lo que parece tan difícil. Enhorabuena. Una consulta sabéis cómo puedo formular sino encuentra el archivo pdf, osea poder decir que no está y salga un Msgbox, ya que si no lo encuentra me envía a depurando. Gracias y un saludo para todos

[@todoenprogramacion9492]

Hola Alberto, saludos. En este video hago un ejemplo al respecto, espero te sirva. kzbin.info/www/bejne/e2LUf2WVmbyAl7s

[@fernandorodriguez-iy3jk]

No pondrías en descripción la macro gracias

[@todoenprogramacion9492]

Lo tendré en cuenta, gracias

[@fernandorodriguez-iy3jk]

Gracias luego de renegar un rato me salió gracias genio

[@danilomarceloquinapaxigonz5015]

Si existen varias pestañas en el Excel como debería ser el código para ejecutar

[@todoenprogramacion9492]

Hola Danilo debería funcionar igual. La macro tiene en cuenta la celda activa independiente de la hoja en donde se encuentre. Saludos!

[@MartinRacingClub]

se puede hacer con archivos de txt?? intenté seguir los pasos pero con txt y no me salió. Saludos

[@todoenprogramacion9492]

Hola Martín, claro que se puede, ya lo probé y funcionó. Habría que ver que error te sale. Saludos!

[@MartinRacingClub]

@@todoenprogramacion9492 sí, gracias, ya lo hice y funcionó, espectacular tu macro.

[@wilmanarias7224]

Buenas tardes me podria regalar el codigo por fa

[@todoenprogramacion9492]

Sub abrirpdf() archivopdf = "C:\Users\HP\Documents\bayron\canal\" & ActiveCell.Value & ".pdf" ActiveWorkbook.FollowHyperlink archivopdf End Sub

[@todoenprogramacion9492]

No olvides modificar la parte de la ruta con la ubicacion de tu archivo pdf

[@lapislazu4852]

Si quiero que sea abrir un documento de word como sería ? Lo necesito porfa :(

[@todoenprogramacion9492]

Sub abrirword() archivoword = "C:\Users\HP\Documents\bayron\canal\" & ActiveCell.Value & ".docx" ActiveWorkbook.FollowHyperlink archivoword End Sub

[@lapislazu4852]

@@todoenprogramacion9492 gracias amigo me funciono, otra duda como hago para que abra varios documentos a la vez por ejemplo que abra uno de Word y otro archivo de Excel

[@orlandosantos309]

BUEN DIA MI PREGUNTA ES COMO HAGO SI NO SON HOJAS DE VIDA PONGAMOS COMO EJEMPLO VISITAS Y SI X VISITANTE TIENE 3 VISITAS Y SOLO QUIERO IMPRIMIR UNA EN ESPESIFICO

[@todoenprogramacion9492]

No entiendo muy bien la pregunta!! Puedes dar mas detalles, por favor

[@orlandosantos309]

@@todoenprogramacion9492 por que medio te puedo escribir para darte mas detalles que no sea por aqui

[@todoenprogramacion9492]

[e-mail]

[@armandblue100]

Excelente, me gustaría que me dijeras como hago la macro de tal manera que yo inserte el número de expediente y se abra el pdf. Lo qué pasa es que yo tengo miles de pdfs y se me haría más fácil que uniese una celda donde inserte el número de expediente y se abra. Gracias

[@todoenprogramacion9492]

Sub abrirpdf() 'Set archivopdf = CreateObject("pdf.Application") archivopdf = "C:\Users\HP\Documents\bayron\canal\" & ActiveCell.Value & ".pdf" ActiveWorkbook.FollowHyperlink archivopdf 'MsgBox ActiveCell.Value End Sub

[@todoenprogramacion9492]

Colocas todos tus expedientes en una misma carpeta. Colocas la ubicación de dicha carpeta en la variable archivopdf en la macro. En la hoja de calculo colocas el numero de expediente en cualquier celda y presionas el botón que creaste para esa macro y listo. No olvides que debe estar la celda activa antes de presionar el botón.

[@armandblue100]

@@todoenprogramacion9492 hola, ya salió. Muy clara tu explicación, te felicito por lo qué haces y mi agradecimiento encima de todo.

[@jurypinto]

lo hice como diez veces y no me abre el pdf, que estare haciendo mal

[@todoenprogramacion9492]

puedes copiar tu código aquí? para revisar

[@harlesepc5906]

Me gustaria saber si pudistes hacer ese ejemplo.

[@shognaykerkennshigvegamend1874]

Me puedes explicar para abrir un archivo en drive.

[@todoenprogramacion9492]

hola estimado, puedes hacerlo de dos formas: Mediante el comando shell colocando primero la ruta de chrome & el enlace de tu archivo drive (aquí está un código que enlaza a un archivo de mi drive) Sub abrirprograma() Shell "C:\Users\HP\AppData\Local\Google\Chrome\Application\chrome.exe " & "docs.google.com/document/d/1Em7fAdR6jkI7kwAg08_NDWG6s37dLN0ssZhb7TtX46g/edit?usp=sharing" End sub o puedes colocar en una celda el enlace a tu archivo drive y hacerlo asi: Sub abrirprograma() enlace = Range("B10").Value Shell "C:\Users\HP\AppData\Local\Google\Chrome\Application\chrome.exe " & enlace End sub Nota: en el caso anterior puse el enlace en la celda B10, no olvides en la ruta de chrome colocar un espacio después de chrome.exe

[@alessoloza9395]

Me podrias pasar el excel porfavor?

[@todoenprogramacion9492]

Claro. Envíame tu correo y con gusto te paso el archivo

[@angelabueno5165]

Volumen muy bajo

[@bioingredienttechnology1317]

Hola muchas gracias, es lo que estaba buscando, Al realizar y ejecutar la macro me sale un erro EL error que me salio es '-2147221014(800401eq)' me lo marca en la segunda linea No se si este sea el problema: La ubicación es de una carpeta compartida en red La celda que selecciono es una concatenación de otras celdas por =[@[CLAVE ]]&" "&[@[LOTE]] Así escribi la macro Sub abrirPDF() archivopdf = "C:01 CERTIFICADOS DE CALIDAD" & ActiveCell.Value & ".pdf" ActiveWorkbook.FollowHyperlink archivopdf End Sub Espero puedas ayudarme. Gracias por tu aportación

[@todoenprogramacion9492]

Nunca lo he realizado en una carpeta compartida pero voy a revisar y te comento

[@yohonnismurilloredondo94]

Excelente video.. en mi caso presenta problemas en la segunda linea ActiveWorkbook.FollowHyperlink archivopdf este es mi codigo ..... Sub abrirpdf() archivopdf = "D:\ACTAS\3.1.1.1_ESPECIFICOS\ACTAS" & ActiveCell.Value & ".pdf" ActiveWorkbook.FollowHyperlink archivopdf End Sub ayuda por favor

[@todoenprogramacion9492]

todo parece estar en orden. Que error te arroja?