Vídeo relación Excel-Arena
''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
----------------------------------------------------------------------------------------------------------------
