Macro para abrir archivo desde el contenido una celda
Buenas noches,
Requiero de su amable colaboración para crear una macro que me permita abrir una archivo en PDF usando el nombre del mismo que esta incluido dentro de una celda, teniendo en cuenta estas condiciones:
- El contenido de la celda cambia permanentemente.
- La macro debe halar el archivo usando el nombre depositado en la celda, el cual coincide perfectamente (es alfanumérico) con un archivo guardado en una carpeta determinada.
Quedo pendiente de sus respuestas.
1 respuesta
Respuesta de Harold Z.
1
'una forma sencilla sería así
Public Sub abrir()
Dim ObjPdf As Object
pathname = "D:\"
Filename = Range("I2").Value 'la celda donde esta el nombre de tu archivo incluido extensión
ActiveWorkbook.FollowHyperlink pathname & Filename
End Sub
Sorry, se me quedó parte de otro código que estaba haciendo en la versión anterior
Public Sub abrir()
Dim pathname As String, Filename As String
pathname = "D:\MiCarpeta\" 'La carpeta donde está tu archivo, debe terminar en "\"
Filename = Range("I2").Value 'la celda donde esta el nombre de tu archivo incluido extensión
ActiveWorkbook.FollowHyperlink pathname & Filename
End Sub
Harold mil gracias.
Pero me queda una duda.. ambas funcionan perfectamente, cual dejo?
Deja la segunda, en la primera hay una variable que no estaba usando (ObjPdf)
