Re^9: Reading Excel

After fixing your bugs this works for me

use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';
$Win32::OLE::Warn = 3; 
#my $Excel=Win32::OLE->GetActiveObject('Excel.Application')
my $Excel = Win32::OLE->GetActiveObject('Excel.Application')
|| Win32::OLE->new('Excel.Application', 'Quit');  

#$excelfile= "C:/perlpractice/simple.xlsm";  
$excelfile= "C:/perlpractice/testfile.xlsm";  
$Book=$Excel->Workbooks->Open($excelfile);
$Sheet=$Book->Worksheets(1);
[download]

Comment on Re^9: Reading Excel Download Code

Replies are listed 'Best First'.
Re^10: Reading Excel by ravi179 (Novice) on Jan 30, 2017 at 06:35 UTC
Thankyou.But if iam running the same script OLE exception fro m "Microsoft Excel"; Unable to get the Open property of the Workbook class.Win32::OLE (0.1709)error 0x800a03ec in METHOD/PROPERTYGET "Open" at C:\Perl\Read.pl	[reply]
Re^11: Reading Excel by huck (Prior) on Jan 30, 2017 at 10:39 UTC
i got that message when i had only `my $Excel=Win32::OLE->GetActiveObject('Excel.Application');` [download] instead of `my $Excel = Win32::OLE->GetActiveObject('Excel.Application') \|\| Win32::OLE->new('Excel.Application', 'Quit');` [download] Do you reaize what the difference is?	[reply] [d/l] [select]