Hy una forma que desde Excel pueda abrir un archivo que contenga el número de una celda ? Tengo esta macro
Quiero abrir un archivo de PDF que contenga el número de una celda, este número cambia constantemente y todos los archivos PDF tienen un nombre y el número ... Tengo esta macro pero no me abre
Quisiera saber si se puede hacer lo mismo pero con un PDF, intente pero no responde la macro
Sub PDF()
Dim num As Variant
Dim ruta As String
'
num = Worksheets("Ficha").Range("F2").Value
ruta = "C:\Users\Laura\Dropbox\DOCUMENTOS PERSONALES\CONSULTORIO\KARDEX\PDF KARDEX\"
'
'Buscar archivos en la ruta con el número
arch = Dir(ruta & "*" & num & "*.pdf")
'
If arch <> "" Then
Set PDFApp = CreateObject("pdf.Application")
'Abre archivo en la ruta y con el número
PDFApp.Open ruta & arch
PDFApp.Show
End If
End Sub
Si sabes de alguna página donde pueda aprender cosas así te agradezco.
1 Respuesta
Prueba lo siguiente:
Sub PDF()
Dim num As String
Dim ruta As String
Dim arch As Variant
'
num = Worksheets("Ficha").Range("F2").Value
ruta = "C:\Users\Laura\Dropbox\DOCUMENTOS PERSONALES\CONSULTORIO\KARDEX\PDF KARDEX\"
arch = Dir(ruta & "*" & num & "*.pdf")
If arch <> "" Then
ActiveWorkbook.FollowHyperlink ruta & arch
End If
End Sub
Intenté pero sucede lo mismo, la macro no ejecuta :(
Revisa que realmente exista el archivo.
Qué tienes en la celda F2
Cómo están tus archivos en la ruta:
"C:\Users\Laura\Dropbox\DOCUMENTOS PERSONALES\CONSULTORIO\KARDEX\PDF KARDEX\"
Prueba esto:
Sub PDF()
Dim num As String
Dim ruta As String
Dim arch As Variant
'
num = Worksheets("Ficha").Range("F2").Value
ruta = "C:\Users\Laura\Dropbox\DOCUMENTOS PERSONALES\CONSULTORIO\KARDEX\PDF KARDEX\"
arch = Dir(ruta & "*" & num & "*.pdf")
If arch <> "" Then
ActiveWorkbook.FollowHyperlink ruta & arch
Else
MsgBox "No existe archivo : " & ruta & arch
End If
End Sub
