Macro para abrir un archivo .pdf

Hola GR,

Se me ocurren estas tres:

Sub test1()
Dim objShell As Object
Set objShell = CreateObject("WScript.Shell")
objShell.Run "e:\prueba.pdf"
End Sub

Sub test2()
Dim x, App As String, Prog As String, Archivo As String
Prog = Environ(19)
App = Mid(Prog, InStr(Prog, "=") + 1, Len(Prog)) _
& "\Adobe\Acrobat 7.0\Reader\AcroRd32.exe"
Archivo = "e:\prueba.pdf"
x = Shell(App & " " & Archivo, 1)
End Sub

Sub test3()
Dim x, Archivo As String
Archivo = "e:\prueba.pdf"
x = Shell("cmd.exe /c " & Archivo, 1)
End Sub

Saludos,
KL


"GR" wrote in message news:

Hola buen dia

Alguien me podria ayudar por favor con el codigo (macro) para abrir un
archivo (formato) que esta en adobe acrobat, es decir, tengo una hoja de
calculo en excel y quisiera por abrir mi formato de .pdf con un boton desde
excel

Espero haberme explicado y les agradezco de antemano sus comentarios

Gracias

hola, chicos !

GR escribio en el mensaje ...
... codigo (macro) para abrir un archivo (formato) que esta en adobe acrobat [...]

KL escribio en el mensaje ...
Se me ocurren estas tres: [...]

otra -posible- alternativa [sin macros]... -> usar hipervinculos ;)
por menu [insertar / hipervinculo] o... por funcion =hipervinculo("ubicacion del archivo","texto en celda")

saludos,
hector.

Muchas gracias por sus comentarios

Ya probe la primera macro y si me funciono

Que tengan buen fin de semana

"GR" escribió:

Hola buen dia

Alguien me podria ayudar por favor con el codigo (macro) para abrir un
archivo (formato) que esta en adobe acrobat, es decir, tengo una hoja de
calculo en excel y quisiera por abrir mi formato de .pdf con un boton desde
excel

Espero haberme explicado y les agradezco de antemano sus comentarios

Gracias