ru.website

 
 - RU.WEBSITE -------------------------------------------------------------------
 From : Nikolay Pichtin                      2:5056/30      09 Apr 2001  11:33:48
 To : Alex Shkolnikov
 Subject : Re: need help
 -------------------------------------------------------------------------------- 
 

 
 
  AS>>    Уважаемый All, подскажи как сделать следующую вещь: есть прайс в
  AS>> формате MS Excel (*.xls) и сайт, на котором можно глянуть его по
  AS>> категориям (процессоры, сетевое оборудование, etc). Прайс обновляется
  AS>> часто, поэтому ручное прописывание в html нежелательно, нужно генерить
  AS>> странички прайса из xls файла. Каким образом это можно устроить?
  AS>> Заранее большое спасибо.
 
 Hа Perl получи:
 
 = Вставка =
 #!/usr/bin/perl
 
 my $doc_file = 'x:\\w\\Excel\\Win32_OLE\\price.xls';
 my $worksheet = 1;
 
 use lib qw( . Win32::OLE );
 
 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("$doc_file");
 my $Sheet = $Book->Worksheets($worksheet); # select worksheet number 1
 my $array = $Sheet->Range("A7:D63")->{'Value'}; # get the contents
 
 $Book->Close;
 
 foreach my $ref_array (@$array) {                     # loop through the array
                                                       # referenced by $array
     foreach my $scalar (@$ref_array) {
         print " $scalar";
     }
     print "\n";
 }
 = Вставка =
 
 -- Hиколай.
 * Это не ошибкa, a системнaя функция.
 ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД
 ---
  * Origin: Если это глупо, но работает, - значит это не глупо. (2:5056/30)
 
 

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

Тема:    Автор:    Дата:    need help   Alex Shkolnikov   08 Apr 2001 13:35:48   need help   Alex Suhov   09 Apr 2001 00:17:04   Re: need help   Nikolay Pichtin   09 Apr 2001 11:33:48   Re: need help   Alex Shkolnikov   10 Apr 2001 00:45:46   Re: need help   Alexander Temerev   10 Apr 2001 07:12:24   Re: need help   Serge Shikov   10 Apr 2001 09:58:44   need help   Vladislav Zlobin   10 Apr 2001 19:49:12   need help   Vladislav Zlobin   10 Apr 2001 19:48:16   need help   Alex Suhov   12 Apr 2001 00:43:55   need help   Vladislav Zlobin   13 Apr 2001 16:49:31   need help   Andrej Ramaszeuski   15 Apr 2001 11:49:36   need help   Vladislav Zlobin   15 Apr 2001 23:08:42   need help   Andrej Ramaszeuski   16 Apr 2001 15:39:45   need help   Vladislav Zlobin   17 Apr 2001 10:09:53   need help   Dmitry Ochnev   15 Apr 2001 23:27:50   need help   Vladislav Zlobin   17 Apr 2001 09:34:30   need help   Dmitry Ochnev   17 Apr 2001 17:48:40   need help   Vladislav Zlobin   21 Apr 2001 11:11:43   Re: need help   Pavel Kurnosoff   15 Apr 2001 00:27:27   need help   Alex Suhov   11 Apr 2001 21:51:53   Re: need help   Nikolay Pichtin   14 Apr 2001 00:11:36