SIMAN 错误和 VBA

Question

我在 Arena 中使用此代码，Arena 是 Rockwell Automation 的一款模拟软件。我正在尝试获取代码以从 excel sheet 读取一些数据并将其分配给进入 vba 模块的实体的属性。当我运行模拟时，我得到这个 SIMAN 错误 window:

"17035:EEVBA 实体：2

在以下块的时间 0.0 处检测到运行时间错误： * 6 15$ VBA:0,vba:下一个(2$);

事件编号 0 无效：必须为正数。

这个错误是什么意思？这是我的代码，有什么建议吗？ :

Option Explicit
Public XL As Object
Public Wo As Integer
Public W_1 As Integer
Public NumContenedor As Integer

Public Sub ModelLogic_RunBeginSimulation()
    Dim m As Model
    Set m = ThisDocument.Model
    Dim FileToOpen As String
    Set XL = GetObject("", "Excel.Application")
    FileToOpen = "C:\Users\A\data.xlsx"
    XL.Workbooks.Open FileToOpen
End Sub

Public Sub VBA_Block_1_Fire()
    Dim s As SIMAN
    Set s = ThisDocument.Model.SIMAN
    NumContenedor = s.EntityAttribute(s.ActiveEntity, s.SymbolNumber("NumContenedor"))
    Wo = XL.Workbooks(1).Worksheets(1).Cells(NumContenedor, 4).value
    W_1 = XL.Workbooks(1).Worksheets(1).Cells(NumContenedor, 5).value
    s.EntityAttribute(s.ActiveEntity, s.SymbolNumber("deltaW")) = W_1 - Wo
End Sub

Public Sub ModelLogic_RunEnd()
    XL.Quit
End Sub

Answer 1

我的 VBA 块的 cookie 编号与过程名称中的编号不匹配 VBA_Block_1_Fire()

呃

SIMAN 错误和 VBA

SIMAN errors and VBA

vba

arena-simulation