Excel - Abrir Archivo

q' tal foro!

una pregunta sabemos que por medio de un macro se puede abrir un archivo de excel, pero como abrir un archivo de diferente extencion por medio de un macro...?

Ej:
Shell "c:windows otepad.exe"

También podrías usar la API de Windows ShellExecute o ShellExecuteEx

Saludos desde Baires, JuanC

muy bien con shell si abre los .EXE pero los .Doc o . PDF alli cual seria el procedimiento....?

mediante la API...

Option Explicit

Declare Function apiShellExecute 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
Declare Function apiGetForegroundWindow Lib "user32" Alias "GetForegroundWindow" () As Long

Sub Test()
Call apiShellExecute(apiGetForegroundWindow, "Open", "C:windowsescritorios.txt", "", "", 1)
End Sub

Saludos desde Baires, JuanC

Sin una macro, pero con un Hipervinculo dentro de tu hoja de Excel lo puedes hacer.

Correcto muy bien y gracias.
pero me tope con un detalle
en primer lugar tengo una version de excel del 2002
y aplico este codigo para abrir un archivo de musica

Option Explicit
Declare Function apiShellExecute 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
Declare Function apiGetForegroundWindow Lib "user32" Alias "GetForegroundWindow" () As Long
Sub ALEJANDRO()
Call apiShellExecute(apiGetForegroundWindow, "Open", "C:SIAFPERSONALMi músicaGRABAR EN MI IPOD EN MP3MUSICA EN ESPAÑOLBALADASA Mis PadresP_Alejandro Fernadez_Cuando yo queria ser grande.MP3", "", "", 1)
End Sub

hasta aqui todo bien si lo abre perfectamente

pero cuando paso el archivo a otra computadora con excel version 2003

no me abre el archivo.... que hago hay alguna forma de que pueda abrirlo en cualquier version....?

Set documento = CreateObject("Word.Application")
With documento
.Documents.Open ("c:ArisRenta.doc")
.Visible = True
.Activate
End With

Saludos de Juan de Sevilla