
fashimpaur
User
Dec 3, 2001, 12:25 PM
Post #2 of 3
(9321 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"
|