'********************************************************************************
'* ejecuta el procedimiento AutoArranque de la hoja de calculo "Control Seguimiento Fundición.xls" 
'* evidentemente habra de adaptar el nombre de la hoja de calculo, su ruta, etc...
'* deberá incluir la rutina ExisteUnidadRed si fuera necesario hacer uso de ella
'* ESH 28/10/03 13:45
'********************************************************************************

On Error Resume Next

Dim WshNetwork, _
    xlApp, _
    strArchivo

Set WshNetwork = WScript.CreateObject("WScript.Network")

' mapeo la unidad de red
If Not ExisteUnidadRed ("U") Then WshNetwork.MapNetworkDrive "U:", "RutaArchivo", , "usuario", "password"

strArchivo = "nombreArchivoConRuta"

' creo un objeto Excel
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True

xlApp.Workbooks.Open strArchivo

xlApp.Worksheets("Datos CM").AutoArranque

xlApp.Quit

' si fuera necesario desmapeo la unidad de red
'WshNetwork.RemoveNetworkDrive "U:"

Set xlApp = Nothing
Set WshNetwork = Nothing