perlquestion
Anonymous Monk
I am getting these errors;
<code>
Win32::OLE(0.1702) error 0x80020009: "Exception occurred"
in PROPERTYPUT "Value" at C:\Perl\Test\im.pl line 134
Win32::OLE(0.1702) error 0x80020009: "Exception occurred"
in PROPERTYPUT "Value" at C:\Perl\Test\im.pl line 135
Win32::OLE(0.1702) error 0x80020009: "Exception occurred"
in PROPERTYPUT "Value" at C:\Perl\Test\im.pl line 130
Win32::OLE(0.1702) error 0x80020009: "Exception occurred"
in PROPERTYPUT "Value" at C:\Perl\Test\im.pl line 143
Win32::OLE(0.1702) error 0x80020009: "Exception occurred"
in PROPERTYPUT "Value" at C:\Perl\Test\im.pl line 129
Win32::OLE(0.1702) error 0x80020009: "Exception occurred"
in PROPERTYPUT "Value" at C:\Perl\Test\im.pl line 147
Win32::OLE(0.1702) error 0x80020009: "Exception occurred"
in PROPERTYPUT "Value" at C:\Perl\Test\im.pl line 171
Win32::OLE(0.1702) error 0x80020009: "Exception occurred"
in PROPERTYPUT "Value" at C:\Perl\Test\im.pl line 128
Win32::OLE(0.1702) error 0x80020009: "Exception occurred"
in PROPERTYPUT "Value" at C:\Perl\Test\im.pl line 134
</code>
Which corresponds to this bit of code!
<code>
$Sheet_tmpl->Cells($trow,4)->{'Value'} = "$data" if ($cell_info->{$count} eq 'RTO');
$Sheet_tmpl->Cells($trow,5)->{'Value'} = "$data" if ($cell_info->{$count} eq 'RPO');
$Sheet_tmpl->Cells($trow,6)->{'Value'} = "$data" if ($cell_info->{$count} eq 'SLA');
$Sheet_tmpl->Cells($trow,7)->{'Value'} = "$data" if ($cell_info->{$count} eq 'Host Name');
$Sheet_tmpl->Cells($trow,8)->{'Value'} = "$data" if ($cell_info->{$count} eq 'Location');
$Sheet_tmpl->Cells($trow,9)->{'Value'} = "$data" if ($cell_info->{$count} eq 'SAN');
$Sheet_tmpl->Cells($trow,10)->{'Value'} = "$data" if ($cell_info->{$count} eq 'NAS');
$Sheet_tmpl->Cells($trow,11)->{'Value'} = "$data" if ($cell_info->{$count} eq 'DAS');
$Sheet_tmpl->Cells($trow,12)->{'Value'} = "$data" if ($cell_info->{$count} eq 'Current Tier');
$Sheet_tmpl->Cells($trow,13)->{'Value'} = "$data" if ($cell_info->{$count} eq 'Allocated GB');
$Sheet_tmpl->Cells($trow,14)->{'Value'} = "$data" if ($cell_info->{$count} eq 'Actual GB');
$Sheet_tmpl->Cells($trow,15)->{'Value'} = "$data" if ($cell_info->{$count} eq 'Storage Raw (GB)');
$Sheet_tmpl->Cells($trow,16)->{'Value'} = "$data" if ($cell_info->{$count} eq 'Storage Growth (% per year)');
$Sheet_tmpl->Cells($trow,17)->{'Value'} = "$data" if ($cell_info->{$count} eq 'Application Type');
</code>
Any idea how can I get rid of these errors, and why did they occure? Thanks
3