Abrir un archivo usando VBA

[Jorge Novoa]

Hola a todos!

Necesito mandar a abrir un archivo (.PDF por ejemplo) desde un form
utilizando VBA.ç

¿cómo hago esto?

Gracias de antemano!

--

Jorge Novoa
F.A. Arias & Muñoz
El Salvador, C.A.
***@NOSPAMariaslaw.com

[Emilio]

Hola Jorge

Shell "aqui la ruta de adobeacrobat\Acrobat.exe" & chr(34) & "aqui la ruta
de tu pdf" & chr(34)

en resumidas cuentas, Shell , ruta de ejecutable y ruta de archivo (entre
comillas)
--
Saludos a ***@s desde Huelva
Emilio
miliuco56 ALGARROBA hotmail.com

Reglas de conducta de los grupos de noticias:
http://support.microsoft.com/default.aspx?scid=fh;ES-ES;newsreglas

Post by Jorge Novoa
Hola a todos!
Necesito mandar a abrir un archivo (.PDF por ejemplo) desde un form
utilizando VBA.ç
¿cómo hago esto?
Gracias de antemano!
--
Jorge Novoa
F.A. Arias & Muñoz
El Salvador, C.A.

[Jorge Novoa]

Gracias Emilio,
Lo que sucede es que de esa manera se asume que la ruta y nombre del acrobat
reader es fija... ¿qué tal si un día se les ocurre cambiarle nombre al
ejecutable? ¿o la ruta?
Lo que quiero es aprovechar la asociación que hace windows con los tipos de
archivo.

¿se puede hacer eso?

El tipo de dato 'hyperlik' hace ese trabajo, PERO hay que ponerle toooooda
la ruta del archivo, eso resta elegancia a un form y requiere que el usuario
haga pasos adicionales como ubicar el archivo.


Saludos
--

Jorge Novoa
F.A. Arias & Muñoz
El Salvador, C.A.

Post by Emilio
Hola Jorge
Shell "aqui la ruta de adobeacrobat\Acrobat.exe" & chr(34) & "aqui la ruta
de tu pdf" & chr(34)
en resumidas cuentas, Shell , ruta de ejecutable y ruta de archivo (entre
comillas)
--
Emilio
miliuco56 ALGARROBA hotmail.com
http://support.microsoft.com/default.aspx?scid=fh;ES-ES;newsreglas

Post by Jorge Novoa
Hola a todos!
Necesito mandar a abrir un archivo (.PDF por ejemplo) desde un form
utilizando VBA.ç
¿cómo hago esto?
Gracias de antemano!
--
Jorge Novoa
F.A. Arias & Muñoz
El Salvador, C.A.

[Búho]

...esta api es lo que buscas:

Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

'***********************************

'Esto en cualquier boton de comando de tu formulario
ShellExecute Me.hwnd, "open", "C:\Carpeta\loquesea.pdf", "", "", 1
--
Saludos desde Valladolid
Francisco Javier García Aguado
***@mvp-access.com
---
http://www.mvp-access.com/buho
http://www.mvp-access.com/foro
http://groups.msn.com/Access2000VisualBasic/
Mi Perfil de MVP en Microsoft:
http://tinyurl.com/6ysvu
---



---
Este correo ha sido testeado y no tiene virus (Al menos conocidos). Saludos
de Francisco Javier García Aguado (Buho)
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.732 / Virus Database: 486 - Release Date: 29/07/2004

[Jorge Novoa]

Gracias!

Esto también funciona:
Application.FollowHyperlink "C:\Temp\MyDocument.PDF"

--

Jorge Novoa
F.A. Arias & Muñoz
El Salvador, C.A.

Post by Búho
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
'***********************************
'Esto en cualquier boton de comando de tu formulario
ShellExecute Me.hwnd, "open", "C:\Carpeta\loquesea.pdf", "", "", 1
--
Saludos desde Valladolid
Francisco Javier García Aguado
---
http://www.mvp-access.com/buho
http://www.mvp-access.com/foro
http://groups.msn.com/Access2000VisualBasic/
http://tinyurl.com/6ysvu
---
---
Este correo ha sido testeado y no tiene virus (Al menos conocidos). Saludos
de Francisco Javier García Aguado (Buho)
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.732 / Virus Database: 486 - Release Date: 29/07/2004