use Cwd 'abs_path'; use Win32::OLE; use Win32::OLE qw(in with); use Win32::OLE::Const "Microsoft Excel"; $Win32::OLE::Warn = 3; my $start_run = time(); print"[USAGE]: <demoscript.pl> <.map file path> <Ouput excel path>\n"; print"[INFO]: Executing demoscript.pl V1.0.1.\n"; my $CLEA_Family = $ARGV[0]; my $Excel =Win32::OLE->new('Excel.Application'); # Open Excel file my $Book = $Excel->Workbooks->Open($CLEA_Family); #Make Excel visible $Excel->{Visible} = 1; my $Sheet = $Book->Worksheets("IB_MsgSig"); my $worksheetfunction = $Excel->WorksheetFunction(); my $value = $worksheetfunction->Find("IB_MsgSig","E","Go Notifier Cust +omization Availability Flag 2"); print"\n $value"; $Book->Save; #Or $Book->SaveAs("C:\\file_name.xls"); $Book->Close; #or $Excel->Quit; print"\n[INFO]Timetaken: $run_time [Secs]";
In reply to Error in excel reader by sainky
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |