Simulator 16 User Guide - PowerWorld

GetParametersMultipleElement Function: Sample Code Microsoft® Visual Basic for Excel
Private Sub btnGetParametersMultiple_Click()
Dim objtype, filter As String
Dim xlWB As Excel.Workbook
Set xlApp = Excel.Application
' Checks connection and open case
' SimAuto and caseopen are global variables
If Not SimAuto Is Nothing And caseopen Then
objtype = "bus"
filter = ""
Dim fieldArray As Variant
fieldArray = Array("pwBusNum", "pwBusName", "pwBusKVVolt", _
"pwBusPUVolt", "pwBusAngle")
output = SimAuto.GetParametersMultipleElement(objtype, fieldArray, filter)
If output(0) "" Then
DisplayErrorMessage output(0)
Else
DisplayMessage "Succesful GetParametersSingleElement"
' Prepares additional worksheet
Set xlWB = xlApp.Workbooks.Add
' Copies list of devices in worksheet
With xlWB
Sheets("sheet2").Activate
Sheets("sheet2").Name = "GetParametersSingleElement"
With Sheets("GetParametersSingleElement")
Dim i, j As Integer
Range(Cells(1, 5), Cells(200, 7)).Clear
Cells(1, 1) = "List of Devices for " + objtype + ":"
' Setup fields as subheader
For i = LBound(fieldArray) To UBound(fieldArray)
Cells(2, i + 1) = fieldArray(i)
Next i
' Determine number of fields retrieved
Dim lowfld, highfld As Integer
lowfld = LBound(output(1), 1)
highfld = UBound(output(1), 1)
' Determine number of objects retrieved
©2011 PowerWorld Corporation
1419