Palabras clave: ejecutar, aplicación, WSH
Autor: Juan M. Afán de Ribera (Happy)
Extraído de: La web del Búho
Objetivo:
Ejecuta una aplicación o un documento asociado a una aplicación registrada en el sistema.
'*********** 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 *************
