gansi

 Profile Answers by gansi 

• Sep 30th, 2009

 

use Win32::OLE;
use Win32::OLE::Enum;
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';
use Win32::OLE::Variant;
use Spreadsheet::ParseExcel;
use Spreadsheet::WriteExcel;
use Spreadsheet::ParseExcel::SaveParser;
use strict;

$Win32::OLE::Warn = 3;        
    
my $Excel = Win32::OLE->GetActiveObject('Excel.Application') || Win32::OLE->new('Excel.Application', 'Quit');  
my $Book = $Excel->Workbooks->Open("D:/Ganesh/General/one.xlsx");    
my $Sheet = $Book->Worksheets("Sheet1");

my $LastRow = $Sheet->UsedRange->Find({What=>"*",SearchDirection=>xlPrevious,SearchOrder=>xlByRows})->{Row};
my $LastCol = $Sheet->UsedRange->Find({What=>"*",SearchDirection=>xlPrevious,SearchOrder=>xlByColumns})->{Column};

print "nLAST ROW :: $LastRow";
print "nLAST COLOMN :: $LastCol";

my $data="four";
print "nBEFORE DATA :: $data";

for(my $i=2;$i<=$LastRow;$i++)
{        
    my $value=$Sheet->Cells($i,1)->{'Value'};    
    print "nVALUE :: $value";
    if($data eq $value)
    {
        $data=$Sheet->Cells($i,2)->{'Value'};
    }    
}

print "nNEW DATA :: $data";