Programación General > Visual Basic 6.0 e inferiores

 Abrir Programas

(1/1)

rodovr:
Hola amigos tengo el siguiente codigo en un command button:

Private Sub excel_Click()
Dim lValDev As Long
    lValDev = ShellExecute(Me.hwnd, "Open", "c:\ARCHIVOS DE PROGRAMA\MICROSOFT OFFICE\OFFICE10\EXCEL.EXE", "", "", 1)
End Sub

El cual me abre Excel sin problemas, pero al instalar mi proyecto en una PC que tiene instalado Office en otra carpeta, obviamente no me lo abre.

Como podria hacerle para que lo abra sin ningun problema???

Espero y puedan orientarme gracias.

cpmario:
Usa lo siguiente para abrir un documento en Excel,

En un módulo coloca

--- Código: Text ---Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpszOp As String, ByVal lpszFile As String, ByVal lpszParams As String, ByVal LpszDir As String, ByVal FsShowCmd As Long) As Long Declare Function GetDesktopWindow& Lib "user32" () 
En un evento click de un botón lo siguiente

--- Código: Text ---     r = ShellExecute(GetDesktopWindow, "open", gstrAppPath & "test.xls", "", "C:\", vbMaximizedFocus)  
 Espero te sirva..

:)

rodovr:
Muchas gracias sirvio perfectamente.

Si puedo ayudarte en algo con toda confianza mi mail es rentor98@yahoo.com

Gracias nuevamente.

Navegación

[0] Índice de Mensajes