use strict; 
use Win32::OLE ; 
use Win32::OLE::Const 'Microsoft Excel';

 ########################################################
 ### get already active Excel application or open new

my $Excel = Win32::OLE->GetActiveObject('Excel.Application')
    || Win32::OLE->new('Excel.Application', 'Quit');

 ########################################################
 ### open Excel file
my $Book = $Excel->Workbooks->Open("H:/busyhour_1.xls");
 $Excel->{Visible} = 1;<br>
  my $Sheet = $Book->Worksheets("busyhour_1");
 ########################################################
 ###         format some cells

 	$Sheet->Range("a1:d3")->Interior->{ColorIndex} =3;
   	$Sheet->Range("a5:b5")->Interior->{ColorIndex} =16;
   	$Sheet->Range("a11:j11")->Interior->{ColorIndex}=16;

   	$Sheet->Range("a1:c3")->Font->{FontStyle}="Bold";
   	$Sheet->Range("a5:b5")->Font->{FontStyle}="Bold";
   	$Sheet->Range("a11:j11")->Font->{FontStyle}="Bold";

 ########################################################
 ###         save and close

    $Book->Save;
    $Book->Close;