Opening Excel sheet through getcwd

stallion has asked for the wisdom of the Perl Monks concerning the following question:

Im trying to open excel sheet which is placed along with the perl script using getcwd...the perl script and the excel sheet can be kept at any place...

#use strict;
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';
use vars qw ( $OUT_Var);
$Win32::OLE::Warn = 3; # Die on Errors.
$OUT_Var    = getcwd."\\"."Check.xls";
$OUT_Var    =~ s/\//\\/g;
#my $excelfile = $OUT_Var;

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

   $Excel->{DisplayAlerts}=0;

my $Book = $Excel->Workbooks->Open($OUT_Var) or die
my $Book = $Excel->Workbooks->Add() or die Win32::OLE->LastError();
$Excel->{Visible} = 1;
[download]

but im getting error either that workbook value is not defined or Method property get OPEN

Comment on Opening Excel sheet through getcwd Download Code

Replies are listed 'Best First'.
Re: Opening Excel sheet through getcwd by moritz (Cardinal) on Jan 12, 2012 at 15:27 UTC
Please don't comment out `use strict` Please post the actual code that you run, then one you've shown us will die with a different error (where does getcwd come from?). Also it doesn't make sense to comment out the first line of a three-line statement, and expect it to work. Perl 6 - second systems done right	[reply] [d/l]
Re: Opening Excel sheet through getcwd by jmcnamara (Monsignor) on Jan 12, 2012 at 16:26 UTC
I looks like you haven't included the Cwd module. Do that and try `cwd()` as follows: `use strict; use warnings; use Cwd; ... # Then later... my $filename = cwd() . '/somefile.xls',` [download] -- John.	[reply] [d/l]