Visual Basic para Aplicaciones - abrir un documento

Life is soft - evento anual de software empresarial
 
Vista:

abrir un documento

Publicado por andreafuhr (3 intervenciones) el 14/07/2005 15:22:22
Me da verguenza hacer esta pregunta pero...
Cómo puedo hacer para abrir un archivo .doc desde una aplicacion visual?
Y cómo puedo ejecutar el excel? es decir, abrir la aplicacion?

Muchas gracias
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

RE:abrir un documento

Publicado por yeni (12 intervenciones) el 14/07/2005 17:27:33
Ps para abrir un archivo puedes hacer esto:

''esto declarado en generales
Private 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

Private Sub Command1_Click()
Dim error As Integer
error = ShellExecute(Me.hwnd, "Open", "direccion de tu archivo", "", "", 1)
End Sub
-------------------
NOTA:
direccion de tu archivo = aca cambialo por la direccion de tu archivo en word.
Ejm: c:/archivo.doc

-------------------------------------------

Y ps para abrir la aplicacion : keo k con esto la haces

Private Sub Command2_Click()
Shell "C:\Archivos de programa\Microsoft Office\Office\winword", vbMaximizedFocus
End Sub

-----------------------------
Creo k con eso la haces todo.. chauo
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 un documento

Publicado por andreafuhr (3 intervenciones) el 18/07/2005 21:42:57
Me funciona para abrir el word, pero no asi para abrir un archivo.
Para que sirve esta sentencia que me enviaste?

''esto declarado en generales
Private 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

Perdona mi brutalidad!!!!
Gracias
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 un documento

Publicado por yeni (12 intervenciones) el 19/07/2005 05:19:50
Ps eso es una funcion Api...La cual realiza el trabajo..

eso tiene k estar en Generales...Osea arriba de todo tu codigo (Al comienzo de todo)

------------------------------------------------------------------
Ps Dibuja un boton en tu formulario...Luego entra donde escribes tu codigo (Osea donde programas)... Luego borra todo lo que se encuentra ahi(Debe quedar todo en Blanco)... Y copia lo k se encuentra abajo de las lineas y luego pegalo.
Luego crea archivo word con el nombre de (leeme) y guardalo en la unidad C:/ ...
y por ultimo ejecuta el programa..
Y creo k con esto ya no tiene k salirte nada mal.. chao

------------------------------------------COPIA LO DE ABAJO...................................................................

Private 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

Private Sub Command1_Click()
Dim error As Integer
error = ShellExecute(Me.hwnd, "Open", "c:/leeme.doc", "", "", 1)
End Sub

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 un documento

Publicado por andreafuhr (3 intervenciones) el 19/07/2005 14:10:46
MUCHISIMAS GRACIAS YENI. FUNCIONO!!!
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