Dim s As SIMAN
Dim m As Model
Private Sub CommandButton1_Click()
Dim num As Long
num = Val(InputBox("請輸入所需單元個數:", "單元設定"))
Set m = ThisDocument.Model
Set s = m.SIMAN
Dim i As Long
Dim total As Long
For i = 1 To num
If num = 0 Then Exit For
total = 0
total = total + i
Set m = ThisDocument.Model
Dim Seize1modi As Arena.Module
Dim Seize2modi As Arena.Module
Let a = "Buffer"
b = "MS "
Set Resourcemodi = m.Modules.Create("BasicProcess", "Resource", 0, 0)
Let Resourcemodi.Data("Name") = a & 1 + i
Resourcemodi.Data("Capacity") = "2"
Resourcemodi.UpdateShapes
Set Statisticmodi = m.Modules.Create("AdvancedProcess", "Statistic", 0, 0)
Let Statisticmodi.Data("Name") = b & 2 + i & d
Statisticmodi.Data("Type") = "Frequency"
Statisticmodi.Data("ValueState") = "State"
Let Statisticmodi.Data("FRes") = b & 2 + i
Statisticmodi.UpdateShapes
uj5u.com熱心網友回復：
ThisDocument？ WORD嗎？uj5u.com熱心網友回復：
不是，軟體叫arena 不知道你聽沒聽過uj5u.com熱心網友回復：
首先，在VB6中創建一個新的工程，在《工程》/《參考》中添加對相關類的參考，也就是包含有SIMAN、Model等類的庫的參考，因為不了解你的arena軟體，只能說這么多了。我分析你這程式應該是內在arena中的，不然Set m = ThisDocument.Model是不行的。如果是象我說的那樣的話，可能還要做一步作業：Set Xobj=new XXX
Xobj.Open("YYY")
之類的，就象是用VB操作Excel檔案一樣的步驟，然后才能Set m = ThisDocument.Model，后面的操作就基本按你的原來的程式了。
uj5u.com熱心網友回復：
看看它是否提供了com介面的。如果有的話一般它都有相應的幫助檔案的。如果都沒有相關資料，那么用exescope看看主程式及其他看起來像供第三方呼叫的dll等件的typelib資訊。
例如下面是excel.exe的typelib資訊的一部分：
實際也就是供第三方呼叫的各個類介面 方法函式等。有這個那么必有相應的幫助檔案。
uj5u.com熱心網友回復：
使用OleView查看COM介面資訊。轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/79555.html
標籤：VBA