setlocale("bulgarian");
$excel = new COM("excel.application") or die("Unable to instanciate excel");
print "Loaded excel, version {$excel->Version}<br />\n";
//bring it to front
$excel->Visible = 1;//NOT
//dont want alerts ... run silent
$excel->DisplayAlerts = 0;
//create a new workbook
$wkb = $excel->Workbooks->Add();
// delete unused sheets
$sheet=$wkb->Worksheets(3);
$sheet->activate;
$sheet->delete;
$sheet=$wkb->Worksheets(2);
$sheet->activate;
$sheet->delete;
//select the default sheet
$sheet=$wkb->Worksheets(1);
//make it the active sheet
$sheet->activate;
// give the sheet name
if (isset($s_title)) {
$sheet->name = $s_title;
}
//fill it with some bogus data
for($row=1;$row<=7;$row++){
for ($col=1;$col<=5;$col++){
$sheet->activate;
$cell=$sheet->Cells($row,$col);
$cell->Activate;
$cell->value = 'pool4tool 4eva ' . $row . ' ' . $col . ' ak';
}//end of colcount for loop
}
///////////
// Select Rows 2 to 5
$r = $sheet->Range("2:5")->Rows;
// group them baby, yeah
$r->Cells->Group;
и т.н. и т.н.
включително закачането и викането на макроси !
root@ro6avia#echo rm -rf * > /bin/seek_and_destroy
root@ro6avia#/bin/seek_and_destroyРедактирано от ro6avia на 01.04.08 18:05.