This is doing my head in.
I have a script that allows me to add some formatting to an existing Excel sheet.
Excel starts up, "flashes" the worksheet complete with formatting to the screen, saves the sheet and closes Excel down.
When I open the sheet from explorer, however, all of the formatting has disappeared!
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;