var v:variant;
begin
     v := CreateOleObject('Excel.Application');
     v.Workbooks.Open[apl_path+xreport+'zhurnal.xls'];
     v.Sheets['Основной'].Activate;
     v.Columns['A:A'].ColumnWidth :=  30 ;
     v.Range['a1:i1'].NumberFormat := '0'+DecimalSeparator+'00';
     v.range['b4']:='Всего';
     v.range['b4'].Interior.ColorIndex :=  34 ;
     v.range['b'+inttostr(line)].formula:='=sum(c'+inttostr(line)+':'+buk(org_count+ 1 )+inttostr(line)+')'; //всего
      v.visible:=true;
     v := UnAssigned;

         v.Selection.HorizontalAlignment := xlGeneral;
         v.Selection.VerticalAlignment := xlTop;

     v.Range['a1:b5'].Borders[xlBottom].LineStyle := xlContinuous;
     v.Range['a1:b5'].Borders[xlTop].LineStyle := xlContinuous;
     v.Range['a1:b5'].Borders[xlleft].LineStyle := xlContinuous;
     v.Range['a1:b5'].Borders[xlright].LineStyle := xlContinuous;