eval { $excel = Win32::OLE->GetActiveObject( 'Excel.Application' ) };
eval { $workbook = $excel->Workbooks->Open($hist_full)};
$worksheet = $workbook->Worksheets($wksh_no);
$$ref_cell_array = $worksheet->range($excel_data_range)->{'value'};
$close_res = $workbook->Close();
[download]

Also, I should have said then when the following is run on the failing system I get the output underneath (just part of this is listed.



use strict;
my ($key);
print "\nD Version test - Perl version is <$]>\n";
print "\n\nusing Win32::OLE::Const\n\n";
use Win32::OLE;
use Win32::OLE::Const;
my $Excel = Win32::OLE->new('Excel.Application', 'Quit');
my $xlcon = Win32::OLE::Const->Load($Excel);
foreach $key (sort {$a cmp $b} keys %$xlcon) {
    print "$key value $xlcon->{$key}\n";
}
[download]


D Version test - Perl version is <5.012002>


using Win32::OLE::Const

_xlDialogChartSourceData value 541
_xlDialogPhonetic value 538
rgbAliceBlue value 16775408
rgbAntiqueWhite value 14150650
rgbAqua value 16776960
rgbAquamarine value 13959039
rgbAzure value 16777200
rgbBeige value 14480885
rgbBisque value 12903679
rgbBlack value 0
rgbBlanchedAlmond value 13495295
rgbBlue value 16711680

On the failing system what does this give

#!perl
use strict;
use Win32::OLE;
print "Win32::OLE : $Win32::OLE::VERSION \n";
my $Excel = Win32::OLE->new('Excel.Application', 'Quit');
print "Excel ".$Excel->{Version};
[download]

poj