ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Alexander Gaiduk                     2:5020/400     06 Sep 2000  12:57:42
 To : All
 Subject : Re: perl & excel
 -------------------------------------------------------------------------------- 
 

 > Hарод, расскажите как считать данные из экселевской таблицы, при этом не
 >конвертируя ее в csv? Буду очень благодарен за любую информацию..., но
 
 очень
 
 >хотелось бы чтобы она была на русском языке и более/менее понятная...
 
 доки к активперлу иногда посматривай...
 
 use Win32::OLE;
 
 # use existing instance if Excel is already running
 eval {$ex = Win32::OLE->GetActiveObject('Excel.Application')};
 die "Excel not installed" if $@;
 unless (defined $ex) {
     $ex = Win32::OLE->new('Excel.Application', sub {$_[0]->Quit;})
             or die "Oops, cannot start Excel";
 }
 
 # get a new workbook
 $book = $ex->Workbooks->Add;
 
 # write to a particular cell
 $sheet = $book->Worksheets(1);
 $sheet->Cells(1,1)->{Value} = "Пример экселирования из Перла";
 
 # write a 2 rows by 3 columns range
 $sheet->Range("A8:C9")->{Value} = [[ undef, 'Excel', '=A9+C9' ],
                                    [ 10,    'Summa',    0.01  ]];
 
 # print "XyzzyPerl"
 $array = $sheet->Range("A8:C9")->{Value};
 for (@$array) {
     for (@$_) {
         print defined($_) ? "$_|" : "<undef>|";
     }
     print "\n";
 }
 
 # save and exit
 
 $book->SaveAs('test.xls');
 
 undef $book;
 undef $ex;
 
 =GAV
 --- ifmail v.2.15dev5
  * Origin: InterGalactic MegaTrash Co. (2:5020/400)
 
 

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