ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Alexey Kuznetsov                     2:5020/2034    11 Sep 2000  18:23:41
 To : All
 Subject : perl & excel
 -------------------------------------------------------------------------------- 
 

 
  Есть такой скрипт....
 
 use strict;
 use Win32::OLE qw(in with);
 use Win32::OLE::Const 'Microsoft Excel';
 $Win32::OLE::Warn = 3;
 my $Excel = Win32::OLE->GetActiveObject('Excel.Application')
     || Win32::OLE->new('Excel.Application', 'Quit');
 
 my $Book = $Excel->Workbooks->Open("i:\\temp\\test2.xls");
 my $Sheet = $Book->Worksheets(1);
 
 >                            ^^^ возможно ли вместо явного обозначения
 > листа указать переменную? Hужно в случае работы с несколькими листами.
 
 my $array = $Sheet->Range("A7:A9999")->{'Value'};
 
 foreach my $ref_array (@$array) {
 
      foreach my $scalar (@$ref_array) {
         print "$scalar\n";
     }
   }
 
 $Book->Close;
                                     Пакеда, All !
                                                Лелик.
 [Official DDT Team] [Team Мельник] [Team АСУ-31] [Team сессия SUXX]
              E-mail:alexey_kuznetsov@mtu-net.ru; ICQ#7932570
 
 --- -->now playing [ аше Радио 101.7 FM]
 
  * Origin: Лелик - только без рук, я все исправлю!!! (2:5020/2034)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    perl & excel   Alexey Kuznetsov   11 Sep 2000 18:23:41   Re: perl & excel   Alex Lazarev   15 Sep 2000 11:21:34