Excel - Abrir Archivo

   
Vista:

Abrir Archivo

Publicado por Jose (75 intervenciones) el 08/08/2008 20:39:37
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...?
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de JuanC

RE:Abrir Archivo

Publicado por JuanC (1052 intervenciones) el 08/08/2008 21:03:03
Ej:
Shell "c:windows otepad.exe"

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

Saludos desde Baires, JuanC
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Abrir Archivo

Publicado por Jose  (75 intervenciones) el 08/08/2008 22:34:04
muy bien con shell si abre los .EXE pero los .Doc o . PDF alli cual seria el procedimiento....?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de JuanC

RE:Abrir Archivo

Publicado por JuanC (1052 intervenciones) el 08/08/2008 23:46:34
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Abrir Archivo

Publicado por Luis Fernando (805 intervenciones) el 09/08/2008 17:22:12
Sin una macro, pero con un Hipervinculo dentro de tu hoja de Excel lo puedes hacer.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Abrir Archivo

Publicado por Jose Gpe Sanz (75 intervenciones) el 08/09/2008 18:19:03
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....?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Abrir Archivo

Publicado por Juan (2 intervenciones) el 11/08/2008 23:42:53
Set documento = CreateObject("Word.Application")
With documento
.Documents.Open ("c:ArisRenta.doc")
.Visible = True
.Activate
End With

Saludos de Juan de Sevilla
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar