Le Mardi 23 Octobre 2001 16:24, F.H a écrit :
You need to use
Range["B9"]->CurrentRegion->Rows->Count;
Range["B9"]->CurrentRegion->Column->Count;
hi, Alone;
> Hi All,
>
> Anyone knows how to get a row/column count instead of specifying them as in
> foreach my $row (2..130)
> foreach my $column (2..130)
>
> Thanks
>
> I.S
>
> use strict;
> use Win32::OLE qw(in with);
> use Win32::OLE::Const 'Microsoft Excel';
> $Win32::OLE::Warn = 3; # die on errors...
> my $Excel = Win32::OLE->GetActiveObject('Excel.Application')
>
> || Win32::OLE->new('Excel.Application', 'Quit');
>
> my $Book = $Excel->Workbooks->Open("A:\\perl\\codes.xls");
>
> my $Sheet = $Book->Worksheets(1);
>
> foreach my $row (2..130)
> {
> foreach my $col (1..3)
> {
>
> }
> my $test = $Sheet->Cells($row,3)->{'Value'};
> print "$test\n";
> }
>
>
> __________________________________________________________________
> Your favorite stores, helpful shopping tools and great gift ideas.
> Experience the convenience of buying online with Shop@Netscape!
> http://shopnow.netscape.com/
>
> Get your own FREE, personal Netscape Mail account today at
> http://webmail.netscape.com/
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
