Add(MainForm,2953706,112,133)
{
}
Add(VBJScript,7818199,343,133)
{
 WorkPoints=#11:##SetScript|
 Script=#0:|0:|
}
Add(FormatStr,7734432,287,133)
{
 Mask="Dim objExcel, objWorkbook, objRange \r\n\r\nSet objExcel = CreateObject("Excel.Application")\r\nobjExcel.Visible = True\r\nSet objWorkbook = objExcel.Workbooks.Open("%1")\r\n\r\nSet objWorksheet = objWorkbook.Worksheets.Add() \r\n Set objWorksheet = objWorkbook.Worksheets(1)\r\nobjWorksheet.Activate\r\nobjWorksheet.Name = "Отчет"\r\n\r\n' тут с верхних точек подставляй нужные значения\r\n' Set objRange = objExcel.Range("A1","A1")\r\n' objRange.Font.Size = 14\r\n' objRange.Font.Color = RGB(0, 0, 255)  ' RGB(red, green, blue)\r\n\r\n' Set objRange = objExcel.Range("A2","A5")\r\n' objRange.Interior.ColorIndex = 36\r\n\r\nSet objRange = objExcel.ActiveCell.EntireColumn\r\nobjRange.AutoFit()\r\n"
 link(onFString,7818199:##SetScript,[])
}
Add(Button,11490679,175,133)
{
 Left=165
 Top=145
 link(onClick,819712:doExecute,[])
}
Add(ODialog,819712,231,133)
{
 link(onExecute,7734432:doString,[])
}