vb如何调用arena并且自动执行一个doe

lpc19598188

已经写了如下代码        
Dim ArenaApp As Object
ArenaApp = GetObject("", "arena.Application")
Dim m As Object
        m = ArenaApp.models.open("\Movie Rental Store.doe")
        ArenaApp.Activate()
        ArenaApp.Refresh()

是不是应该有个run方法啊？请教高手。
ArenaApp.Run

fashjon

请参看smart例子中关于vba的内容。

狼刃

dim m as arena.model
^^^^^^^
^^^^^
m.go