使用VBA的Arena模拟导出报告

Question

我正在编写VBA来创建，运行，导出结果。我已经完成了创建和运行模型，但我不知道如何获得报告结果。例： - 编号： - 平均队列时间： - 转移时间

Answer 1

我试试这段代码，它对我有用

i = s.SymbolNumber("Entity 1") j = s.EntitiesNumberOutOfType(i) entity_out(n) = j ' Current NumberOfQueue i = s.SymbolNumber("Process 1.Queue") j = s.QueueNumberOfEntities(i) entity_queue_1(n) = j