Как я могу записать все результаты репликации Arena Sim через Excel VBA - PullRequest
Новая
       28

Как я могу записать все результаты репликации Arena Sim через Excel VBA

0 голосов
/ 21 февраля 2020

Моя цель - запустить симуляцию арены через Excel VBA и получить результаты симуляции в Excel. Я написал несколько кодов.

Как видите, мои коды запускают симуляцию арены. А параметр «j» содержит решение моделирования. Я хочу записать все результаты репликации. Например, j1 (результат первой репликации), j2, j3 ... et c. Как я могу это сделать? 

Sub Test()

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 = "D:\Model2.doe"
Set oModel = oArenaApp.Models.Open(ModName)
Set oSIMAN = oModel.SIMAN
oArenaApp.Activate
oArenaApp.Visible = True

oModel.BatchMode = True
oModel.QuietMode = True
oModel.Go (smGoWait)

i = oSIMAN.SymbolNumber("Entity 1")
j = oSIMAN.EntitiesNumberOutOfType(i)

oModel.End
oArenaApp.Visible = False

End Sub
...