use Win32::OLE::Variant;

my $excel = Win32::OLE->new('Excel.Application');

$excel->{'Visible'} = 0;

my $book = $excel->Workbooks->Open('c:\temp\r.xls');

my $sheet = $book->Worksheets(1);

my $cells = $sheet->Range("A1:F20")->{'Value'};

$book->Close;

$excel->Quit();

foreach my $a (@$cells) {

foreach my $b (@$a) {

print "$b\n";

}

}

The above PERL program extracts numbers from cells A1 to F20. Instead of the numbers in the cells, if worksheet #1 has the numbers in Text Box by Drawing in Rectangle, how should I do this in this PERL program? Thanks.