'*********** Código ***************
'
' EjecutarPrograma
'
' Ejecuta una aplicación o un
' documento asociado a una aplicación
' registrada en el sistema.
' Argumentos:
' 1. Nombre aplicación o documento
' 2. Estilo de la ventana
' 3. Esperar que acabe la ejecución
'
' Autor: Juan M. Afán de Ribera
' Fecha: Junio 2003
'
Sub ejecutarPrograma()
Dim wShell As Object 'wshShell
Dim inicio As Date
Dim final As Date

    Set wShell = CreateObject("WScript.Shell")
    
    inicio = Time
    wShell.Run "Excel", , True
    final = Time
    
    MsgBox "El programa Excel ha estado abierto: " _
        & CDate(final - inicio)
    
    Set wShell = Nothing
    
End Sub
'********* Fin código *************