'*******************************************************************************
'* abre un libro Excel y ejecuta un procedimiento del mismo
'* ESH 20/08/03 13:35
'*******************************************************************************

Dim WshNetwork, _
    xls, _
    strArchivo
 
Set WshNetwork = WScript.CreateObject("WScript.Network")
 
strArchivo = "La ruta de tu libro.xls"
 
' creo un objeto Excel
Set xls = CreateObject("Excel.Application")
'xls.Visible = True
 
xls.Workbooks.Open strArchivo

' ejecuto el procedimiento 
xls.Worksheets("Tu Hoja").Procedimiento

' cierro y salgo 
xls.Quit
   
Set xls = Nothing
Set WshNetwork = Nothing