Hi,
This is the contents of my script. I execute both the .pl file and .exe file from the same location.
.pl file was able to printc the contents of Print command whereas .exe fails to do. please advise.
!#!/usr/bin/perl
open (FILE, "<C\:\\Data\\perl2exe\\Report.txt");
@k=<FILE>;
close FILE;
$cnt=(@k-1);
for ($i=0;$i<=$cnt;$i++) {
$k
$i =~ s/^\s+|\s+$//g;
}
print "FILE CONTENT = @k\n";
use Switch;
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';
$Win32::OLE::Warn = 3; # die on errors...
$scm ="USER";
# get already active Excel application or open new
my $Excel = Win32::OLE->GetActiveObject('Excel.Application')
|| Win32::OLE->new('Excel.Application', 'Quit');
print "came\n";
# open Excel file
my $Book = $Excel->Workbooks->Open("C\:\\Data\\perl2exe\\test.xls"); # || die "Unable to Open Excel\n";
my $Sheet = $Book->Worksheets(1);
foreach my $row (509)
{
foreach my $col (1..11)
{
$Sheet->Cells($row,$col)->{'Value'},
$Sheet->Cells($row,$col)->{'Formula'};
switch ($col) {
case 1 {$Sheet->Cells($row,$col)->{'Value'} = "date"}
case 2 {$Sheet->Cells($row,$col)->{'Value'} = "$k
1"}
case 3 {$Sheet->Cells($row,$col)->{'Value'} = "$k
3"}
case 4 {$Sheet->Cells($row,$col)->{'Value'} = "Scheduled"}
case 5 {$Sheet->Cells($row,$col)->{'Value'} = "$scm"}
case 6 {$Sheet->Cells($row,$col)->{'Value'} = "1"}
case 7 {$Sheet->Cells($row,$col)->{'Value'} = "$k
2"}
case 8 {$Sheet->Cells($row,$col)->{'Value'} = "125"}
case 9 {$Sheet->Cells($row,$col)->{'Value'} = "0\:45"}
case 10 {$Sheet->Cells($row,$col)->{'Value'} = "India"}
case 11 {$Sheet->Cells($row,$col)->{'Value'} = "1"}
}
}
}
# clean up after ourselves
$Book->Close;
close FILE;
Thank You
Regards,
Sudha