1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
#!/usr/bin/perl -w
###############################################################################
#
# Example of how to extend the Spreadsheet::WriteExcel 7MB limit with
# OLE::Storage_Lite http://search.cpan.org/search?dist=OLE-Storage_Lite
#
# Nov 2000, Kawai, Takanori (Hippo2000)
# Mail: GCD00051@nifty.ne.jp
# http://member.nifty.ne.jp/hippo2000
#
use strict;
use Spreadsheet::WriteExcel::Big; # Note the name
my $oExW = Spreadsheet::WriteExcel::Big->new("big.xls");
my $oWorksheet = $oExW->addworksheet();
$oWorksheet->set_column(0, 50, 18);
for(my $iCol=0; $iCol< 50; $iCol++) {
for(my $iRow=0; $iRow< 6000; $iRow++) {
$oWorksheet->write($iRow, $iCol, "ROW:$iRow COL:$iCol");
}
}
$oExW->close();
|
