''Declare variables Dim oArenaApp As Arena.Application Dim oModel As Arena.Model, oSIMAN As Arena.SIMAN Dim oModule As Arena.Module ---------------------------------------------------------------------------------------------------------------- Set oArenaApp = CreateObject("Arena.Application") ModName = ThisWorkbook.Path & Application.PathSeparator & "NOMBRE ARCHIVO.doe" Set oModel = oArenaApp.Models.Open(ModName) Set oSIMAN = oModel.SIMAN oArenaApp.Activate oArenaApp.Visible = True ---------------------------------------------------------------------------------------------------------------- 'Run model in batch mode and send results back to Excel oModel.BatchMode = True ' Turn off animation oModel.QuietMode = True ' Do not ask final question oModel.Go (smGoWait) ' Suspend VB until run ends } 'For i = 1 To 3 ' Worksheets(NOMBRE DE HOJA).Cells( Ubicacion en celdas ) = oSIMAN.VariableArrayValue(oSIMAN.SymbolNumber("NOMBRE DE VARIABLE", Ubicacion en celdas)) ' Worksheets(NOMBRE DE HOJA).Cells(Ubicacion en celdas) = oSIMAN.VariableArrayValue(oSIMAN.SymbolNumber("NOMBRE DE VARIABLE", Ubicacion en celdas)) 'Next i ---------------------------------------------------------------------------------------------------------------- 'Asignamos el nombre del archivo NombreArchivo = ThisWorkbook.Path & Application.PathSeparator & "NOMBRE ARCHIVO.xls" With .Workbooks.Open(NombreArchivo) ''Hacemos las modificaciones en el archivo'' .Worksheets("NOMBRE HOJA").Range("CELDA").Value = NOMBRE VARIABLE .Close SaveChanges:=True End With ----------------------------------------------------------------------------------------------------------------