Inicia un programa ejecutable y devuelve un entero que contiene el identificador de proceso del programa si aún se encuentra en ejecución.
Como parámetro obligatorio necesita «ruta» donde indicaremos la ruta y nombre del ejecutable de la aplicación a abrir. El segundo parámetro es opcional, indica cómo se abrirá la ventana de la aplicación: vbHide, vbMaximizedFocus, vbMinimizedFocus, vbMinimizedNoFocus, vbNormalFocus, vbNormalNoFocus.
La función Shell devuelve un valor de tipo Double con el ID de la aplicación que abrirá.
Ejemplo de uso:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 |
Sub ejecutarFacturacion() Dim resultado As Double On Error GoTo cError resultado = Shell("C:\Facturación\facturacion.exe", vbNormalFocus) If resultado <> 0 Then MsgBox "La aplicación Facturación se ha ejecutado con el ID: " & _ CStr(resultado), vbInformation + vbOKOnly End If cSalir: Exit Sub cError: MsgBox Err.Description, vbExclamation + vbOKOnly GoTo cSalir End Sub |
