fashimpaur
User
Dec 3, 2001, 12:25 PM
Post #2 of 3
(8417 views)
|
You might want to try to make it visible.
Try this example and then see if it doesn't do what you are trying to accomplish.
use Win32::OLE;
use Win32::OLE::Const;
my $ex = Win32::OLE->new('Excel.Application');
my $xl = Win32::OLE::Const->Load($ex);
$ex->{Visible} = 1;
$x = 0;
$book = $ex->Workbooks->Add();
$sheet = $book->Worksheets(1);
$row = 1;
while ($x < 1000) {
for ($col = 1; $col <= 10; ++$col){
$sheet->Cells($row,$col)->{Value} = $x;
$x += 1;
}
$row++;
}
$book->SaveAs("c:/perl.xls");
$ex->Quit;
Dennis
$a="c323745335d3221214b364d545a362532582521254c3640504c37292f493759214b3635554c3040606a0",print unpack"u*",pack "h*",$a,"\n\n"
|
MAIN
SEARCH
WHO'S 
LOG 