Add(Label,15711866,56,84)
{
 Width=610
 Height=35
 Align=2
 Caption=""
 AutoSize=1
}
Add(MainForm,4378171,182,84)
{
 Width=626
 Height=643
}
Add(Button,4982637,238,84)
{
 Left=5
 Top=5
 Caption=" Open"
 link(onClick,10622552:doExecute,[])
}
Add(ODialog,10622552,287,84)
{
 link(onExecute,5432892:doWork,[])
}
Add(VBJScript,5432892,336,84)
{
 @Hint=#16:Query SQL Server|
 WorkPoints=#6:doWork|
 EventPoints=#6:onRead|7:onClear|
 Script=#22:Sub doWork(Data,Index)|52:    Set objExcel = CreateObject("Excel.Application")|52:    Set objWorkbook = objExcel.Workbooks.Open (Data)|19:    sys.onClear nil|4:    |38:   objExcel.Sheets("Лист1").Cells.Copy|33:   objExcel.DisplayAlerts = False|18:   sys.onRead nil	|3:   |17:    objExcel.Quit|0:|7:End Sub|
 UseName=0
 link(onRead,8431210:doConvert,[])
}
Add(Clipboard,14068702,392,35)
{
}
Add(MTStrTbl,911494,119,84)
{
 Top=35
 Width=610
 Height=569
 Align=5
 Name="Tabl"
}
Add(MST_Load,16380463,448,77)
{
 Delimiter="\t"
 MSTControl="Tabl"
 link(onLoadFromStream,13279101:doEvent1,[])
}
Add(DoData,6691139,581,84)
{
 Data=String()
 link(onEventData,14068702:doPutText,[(620,90)(620,27)(382,27)(382,41)])
}
Add(StreamConvertor,8431210,392,84)
{
 Mode=7
 Point(Data)
 link(onResult,16380463:doLoadFromStream,[])
 link(Data,14068702:Text,[])
}
Add(MST_ColAction,13742514,532,91)
{
 Action=9
 Index=-2
 MSTControl="Tabl"
}
Add(Hub,13279101,497,84)
{
 link(onEvent1,6691139:doData,[])
 link(onEvent2,13742514:doColAction,[])
}