............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Abrir archivos de diferentes formatos

Ver el tema anterior Ver el tema siguiente Ir abajo

Abrir archivos de diferentes formatos

Mensaje por Deivid el Miér Mar 05, 2008 9:51 pm

Hola a todos. Gracias ante todo por el aporte hacia mis peticiones del maestro Galileo. Bueno, hoy vengo con una pregunta muy sencilla.
En mi hoja tengo tres CmdButtons:
Cmd1 "Abrir Control.pdf"
Cmd2 "Abrir Archivo ayuda.doc"
Cmd3 "Abrir Directorio Clientes"
Me gustaria saber como implantar el codigo vba para que cada macro me cada uno de estos archivos, en ventana maximizada? Los tres archivos se encuentran en C:\wg01\Mi zona
Gracias

Deivid

Cantidad de envíos : 32
Fecha de inscripción : 20/02/2008

Volver arriba Ir abajo

Re: Abrir archivos de diferentes formatos

Mensaje por GalileoGali el Miér Mar 05, 2008 11:38 pm

Hola Deivid:
Yo en lugar de Command Buttons utilizaria: Tres autoformas.
Seleccionas cada una y vas a Insertar>>Hipervinculo> Archivo O Web> seleccionas la Ruta de cada archivo.
y listo

Hasta Pronto


Última edición por GalileoGali el Jue Mar 06, 2008 12:01 am, editado 1 vez

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1963
Edad : 62
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Abrir archivos de diferentes formatos

Mensaje por GalileoGali el Jue Mar 06, 2008 12:01 am

Si de todas maneras quieres usar CommandButtosn, o estas en un Userform asiento de commandbuttons usa esto:

Código:
Sub OpenPDFdoc()
    On Error GoTo 1
    ActiveWorkbook.FollowHyperlink "C:\wg01\Mi zona\control.pdf", NewWindow:=True
    Exit Sub
1:              MsgBox Err.Description
End Sub

y varias en cada macro al ruta de los archivos....
Luego Asignas la macro a los eventos de los CommandButtons

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1963
Edad : 62
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Abrir archivos de diferentes formatos

Mensaje por Deivid el Jue Mar 06, 2008 11:13 am

Hola Gali. Con el código que me aconsejas me funciona bien si es un doc de word, pero cuando le indico un pdf, en la misma ruta que el archivo de word, me sale un mensaje de error:
"Abriendo C:\wg01\Mi zona\control.pdf"
Los hipervínculos pueden dañar el equipo y los datos. Para proteger su equipo, haga clic sólo en hipervínculos de origen de confianza. ¿Desea continuar?
El caso es que si le digo que SI, continua y me abre el archivo. Aunque no creo que este comportamiento sea normal. Tu que opinas?

Deivid

Cantidad de envíos : 32
Fecha de inscripción : 20/02/2008

Volver arriba Ir abajo

Re: Abrir archivos de diferentes formatos

Mensaje por sailepaty el Jue Mar 06, 2008 11:59 am

Hola Delvid,

El comprtamiento es normal y es parte de los parametros del Registro de Windows.

En el siguiente Link esta la explicación de como desactivarlo.

[Tienes que estar registrado y conectado para ver este vínculo]

Recuerda que es preferible efectuar una copia del registro antes de trabakar con el.

Saludos
avatar
sailepaty
Moderador
Moderador

Masculino Cantidad de envíos : 135
Edad : 54
Ciudad - Pais : Dallas, TX
Version de Excel : 2007 y 2010
Fecha de inscripción : 04/03/2008

Volver arriba Ir abajo

Re: Abrir archivos de diferentes formatos

Mensaje por Deivid el Lun Mar 10, 2008 11:35 am

Ya he encontrado la manera de hacerlo Gali el poder abrir un archivo pdf o doc y por otro lado abrir otra aplicacion.
Como bien dije, estas aplicaciones y documentos los abro desde una hoja que se llama Menu principal. Compuesta por varios botones, y no CmdButtons como os dije, cada uno hace una cosa...
Boton 1:
Sub abre_VB6()
'
' Un documento de word
ActiveWorkbook.FollowHyperlink Address:="D:\EXCEL\TEORIA\GuiaVB_6.doc", _
NewWindow:=True

End Sub

Boton 2:
Sub abre_TVAnts()
'
'Abre la aplicacion TVAnts
Dim Apertura
On Error GoTo Abre
AppActivate "TVAnts"
Exit Sub
End
Abre:
Apertura = Shell("C:\Archivos de Programa\TVAnts\TVAnts.exe", 1)
End Sub

Pero ahora se me plantea la duda de como cerrar la aplicacion TVAnts o si tengo mas de una aplicacion, una vez cierro el Menu Principal.xls

Deivid

Cantidad de envíos : 32
Fecha de inscripción : 20/02/2008

Volver arriba Ir abajo

Re: Abrir archivos de diferentes formatos

Mensaje por GalileoGali el Lun Mar 10, 2008 2:00 pm

El recurso de FollowHyperlink ya te lo habia mencionado en el terser Post de este mismo Thread.
Respecto a Abrir una aplicacion , no habias hecho mencion alguna hasdta ahora. Me abstengo de hacer otros comentarios.

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1963
Edad : 62
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Abrir archivos de diferentes formatos

Mensaje por Deivid el Lun Mar 10, 2008 5:48 pm

Siento no haber hecho mencion sobre el abrir o cerra otras aplicaciones Gali. Y es verdad que me hablaste del uso de Hyperlink y lo agradezco porque me sirvió de guía para seguir buscando información. Pido disculpas por mi poca consideracion a la hora de plantear mis problemas... De todos modos si pudieran ayudarme se lo agradecería.

Deivid

Cantidad de envíos : 32
Fecha de inscripción : 20/02/2008

Volver arriba Ir abajo

Re: Abrir archivos de diferentes formatos

Mensaje por damianomarsilva el Dom Abr 27, 2008 2:24 am

cuando tengo que abrir un archivo que no sea de microsoft office, realizo la siguiente acción:
Código:
Sub AbrirOtraAplicacion()
Shell "C:\Program Files\Adobe\Reader 8.0\Reader\AcroRd32.exe " & "C:\File1.pdf", vbNormalFocus
End Sub
aparte de abrir el programa en sí, le concateno luego la ruta al archivo en cuestión, para que me aparezca el mismo en pantalla.
un dato a tener en cuenta: fijate que luego del nombre del ejecutable hay un espacio en blanco, antes de cerrar las comillas. respetalo, o como dijo tusam.... puede fallar.
no creo entender muy bien tu planteamiento, pero si querés cerrar otros programas en ejecución, me parecería que debés hacer rumbo por el lado de las apis de windows, para 'decirle' al sistema operativo que las cierre.
suerte.

damianomarsilva
Moderador
Moderador

Cantidad de envíos : 12
Fecha de inscripción : 12/03/2008

Volver arriba Ir abajo

Re: Abrir archivos de diferentes formatos

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.