|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Sergey Gernichenko 2:5079/32.34 21 Mar 2001 22:06:41 To : All Subject : Excel --------------------------------------------------------------------------------
Подскажите, пожалуйста, какую доку почитать, чтобы осущестьвить управление
сабжем на виндовой тачке из Perl?
Hу я про OLE, есть примерчик в дистре Perl.
==================== C:\Perl\eg\excel1.pl ===============
use OLE;
$application = CreateObject OLE 'Excel.Application' || die $!;
$application->{'Visible'} = 1;
$workbook = $application->Workbooks->Add();
$worksheet = $workbook->Worksheets(1);
$worksheet->Range("A1:D1")->{'Value'} = ["North","South","East","West"];
$worksheet->Range("A2")->{'Value'} = 5.2;
$worksheet->Range("B2")->{'Value'} = 10;
$worksheet->Range("C2")->{'Value'} = 8;
$worksheet->Range("D2")->{'Value'} = 20;
$range = $worksheet->Range("A1:D2");
$chart = $workbook->Charts->Add;
#$chart->ChartWizard(range,"x13DPie",7,"x1Rows",1,0,2,"Sales Percentages" );
$workbook->{'Saved'} = 1;
$application->ActiveWorkbook->Close(0);
$application->Quit();
=====================================================================
С уважением Сергей.
--- GoldED+/W32 1.1.4.7
* Origin: Всё идет хорошо. Только мимо (c) (2:5079/32.34)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/33483ab8d28c.html, оценка из 5, голосов 10
|