Help for this page
my $Excel = Win32::OLE->new('Excel.Application', 'Quit'); $Excel->{SheetsInNewWorkbook} = 1; ... print "Add data\n"; $Range = $Sheet->Range(sprintf "A2:E%d", 2+$#Bars); $Range->{Value} = \@Bars;
while ($inBuf = <csvFILE>) { chomp($inBuf); ... } # End of csvFILE or we reached our Runaway count close csvFILE;
www.com | www.net | www.org
No recent polls found