Add(MainForm,2953706,224,140)
{
 Caption="RND"
 Point(onClose)
}
Add(Button,11796961,287,140)
{
 Left=5
 Top=10
 Width=65
 Caption="RND"
 link(onClick,1168498:doOpen,[])
}
Add(VBJScript,1168498,350,140)
{
 @Hint=#16:Query SQL Server|
 WorkPoints=#6:doOpen|7:doWrite|6:doRead|7:doSheet|7:doArray|7:doClose|
 EventPoints=#6:onRead|7:onCells|7:onArray|6:onOpen|
 DataPoints=#7:MyArray|
 Script=#9:Dim strIn|10:Dim strOut|10:Dim NumRow|10:Dim NumCol|5:Dim i|5:Dim j|14:Dim MyArrays()|12:Dim objExcel|0:|22:Sub doWork(Data,Index)|18: Select Case Index|15:  Case "doOpen"|53:    'Set objExcel = CreateObject("Excel.Application")|53:    'Set objWorkbook = objExcel.Workbooks.Open (Data)|94:     'For i=1 To objWorkbook.Sheets.Count                  'Листы начинаются не с "0", а с "1"|79:      'sys.onRead objWorkbook.Sheets(i).Name               'Выводим имя наружу |10:     'Next|20:    sys.onRead RND  |17:    'sys.onOpen 1|142:  Case "doRead"                               'На вход подаётся строка, содержащая (разделитель -- точка с запятой): НомерСтроки;НомерКолонки;|22:    strIn = CStr(Data)|28:    i = InStr(1,strIn,";",0)|37:    NumRow = CLng(Mid(strIn, 1, i-1))|33:    NumCol = CLng(Mid(strIn,i+1))|61:    strOut = objExcel.ActiveSheet.Cells(NumRow, NumCol).Value|27:    sys.onCells strOut     |162:  Case "doWrite"                              'На вход подаётся строка, содержащая (разделитель -- точка с запятой): НомерСтроки;НомерКолонки;ЗаписываемоеЗначение|22:    strIn = CStr(Data)|28:    i = InStr(1,strIn,";",0)|37:    NumRow = CLng(Mid(strIn, 1, i-1))|30:    j = InStr(i+1,strIn,";",0)|41:    NumCol = CLng(Mid(strIn, i+1, j-i-1))|28:    strIn =  Mid(strIn, j+1)|58:    objExcel.ActiveSheet.Cells(NumRow, NumCol).Value=strIn|20:    sys.onRead strIn|93:   Case "doSheet"                              'На вход подаётся строка, содержащая имя Листа|32:    objExcel.Sheets(Data).Select|44:    objExcel.ActiveSheet.Cells(1, 1).Select |17:   Case "doArray"|23:     REDIM MyArrays(10)|27:     MyArrays = Sys.MyArray|23:     'MyArrays.Add(666)|26:     'MyArrays.Set(0, 123)|33:     'sys.onArray(MyArrays.Count)|34:     'sys.onArray(MyArrays.Get(0))|19:     'DIM IPArray()|30:     'REDIM IPArray(ip1.Count)|34:     'For I = 0 To (ip1.Count - 1)|29:     'IPArray(I) = ip1.Get(I)|15:     'Next I   |17:   Case "doClose"|17:    objExcel.Quit|26:    Set objExcel = Nothing|20:    sys.onOpen 0    |11: End Select|0:|7:End Sub|
 UseName=0
 link(onRead,10813402:doAdd,[])
}
Add(ListBox,10813402,406,140)
{
 Left=90
 Top=5
 Width=130
 Height=250
}