NAME
Spreadsheet::WriteExcel - Write formatted text and numbers to a cross-platform Excel binary file.
VERSION
This document refers to version 0.25 of Spreadsheet::WriteExcel, released January 19, 2001.
SYNOPSIS
To write a string, a number and a formatted string to the first worksheet in an Excel workbook called perl.xls:
use Spreadsheet::WriteExcel;
$row1 = $col1 = 0;
$row2 = 1;
$row3 = 2;
my $workbook = Spreadsheet::WriteExcel->new("perl.xls");
$worksheet = $workbook->addworksheet();
$format = $workbook->addformat();
$format->set_bold();
$format->set_color('red');
$format->set_align('center');
$worksheet->write($row1, $col1, "Hi Excel!");
$worksheet->write($row2, $col1, 1.2345);
$worksheet->write($row3, $col1, "Hi Excel!", $format);DESCRIPTION
The Spreadsheet::WriteExcel module can be used to write numbers and text in the native Excel binary file format. Multiple worksheets can be added to a workbook and formatting can be applied to cells.
The Excel file produced by this module is compatible with Excel 5, 95, 97 and 2000.
The module will work on the majority of Windows, UNIX and Macintosh platforms. Generated files are also compatible with the Linux/UNIX spreadsheet applications OpenOffice, Gnumeric and XESS. The generated files are not compatible with MS Access.
WORKBOOK METHODS
The Spreadsheet::WriteExcel module provides an object oriented interface to a new Excel workbook.The following methods are available through a new workbook.
If you are unfamiliar with object oriented interfaces or the way that they are implemented in Perl have a look at perlobj and perltoot in the main Perl documentation.
new()
A new Excel workbook is created using the new() constructor as follows:
my $workbook = Spreadsheet::WriteExcel->new("filename.xls");Although my is not specifically required it defines the scope of the new workbook variable and, in the majority of cases, ensures that the workbook is closed properly without explicitly calling the close() method.
You can redirect the output to STDOUT using the special Perl filehandle "-". This can be useful for CGIs which have a Content-type of application/vnd.ms-excel, for example:
#!/usr/bin/perl -w
use strict;
use Spreadsheet::WriteExcel;
# Set the filename and send the content type and disposition
my $filename ="cgitest.xls";
print "Content-type: application/vnd.ms-excel\n";
print "Content-Disposition: attachment; filename=$filename\n\n";
my $workbook = Spreadsheet::WriteExcel->new("-");
my $worksheet = $workbook->addworksheet();
$workbook->write(0, 0, "Hi Excel!", $format);close()
The close() method can be called to explicitly close an Excel file.
$workbook->close();An explicit close() is required if the file must be closed prior to performing some external action on it such as copying or reading its size.
In addition, close() may be required if the scope of the Workbook, Worksheet or Format objects cannot be determined by perl. Situations where this can occur are:
If
my()was not used to declare the scope of a workbook variable created usingnew().If the
addworksheet()oraddformat()methods are called in subroutines.
The reason for this is that Spreadsheet::WriteExcel relies on Perl's DESTROY subroutine to trigger destructor methods in a specific sequence. This will not happen if the scope of the variables cannot be determined.
In general, if you create a file with a size of 0 bytes you need to call close().
addworksheet($sheetname)
At least one worksheet should be added to a new workbook:
$worksheet1 = $workbook->addworksheet(); # Sheet1
$worksheet2 = $workbook->addworksheet('Foglio2'); # Foglio2
$worksheet3 = $workbook->addworksheet('Data'); # Data
$worksheet4 = $workbook->addworksheet(); # Sheet4If $sheetname is not specified the default Excel convention will be followed, i.e. Sheet1, Sheet2, etc.
addformat()
The addformat() method can be used to create new Format objects which are used to apply formatting to a cell:
$format1 = $workbook->addformat();
$format2 = $workbook->addformat();See the "FORMAT METHODS" section for details.
worksheets()
The worksheets() method returns a reference to the array of worksheets in a workbook. This can be useful if you want to repeat an operation on each worksheet in a workbook or if you wish to refer to a worksheet by its index:
foreach $worksheet (@{$workbook->worksheets()}) {
$worksheet->write(0, 0, "Hello");
}
# or:
$worksheets = $workbook->worksheets();
@$worksheets[0]->write(0, 0, "Hello");References are explained in detail in perlref and perlreftut in the main Perl documentation.
set_1904()
Excel stores dates as real numbers where the integer part stores the number of days since the epoch and the fractional part stores the percentage of the day. The epoch can be either 1900 or 1904. Excel for Windows uses 1900 and Excel for Macintosh uses 1904. However, Excel on either platform will convert automatically between one system and the other.
Spreadsheet::WriteExcel stores dates in the 1900 format by default. If you wish to change this you can call the set_1904() workbook method. You can query the current value by calling the get_1904() workbook method. This returns 0 for 1900 and 1 for 1904.
In general you probably won't need to use set_1904().
WORKSHEET METHODS
The following methods are available through a new worksheet. A new worksheet is created by calling the addworksheet() method from a workbook object:
$worksheet1 = $workbook->addworksheet();
$worksheet2 = $workbook->addworksheet();write($row, $column, $token, $format)
The write() method is a general alias for one of several methods of writing to a cell in Excel. write() calls one of the following methods depending on the value of $token:
write_number() if $token is a number based on the following regex: $token =~ /^([+-]?)(?=\d|\.\d)\d*(\.\d*)?([Ee]([+-]?\d+))?$/
write_blank() if $token is a blank string: "" or ''.
write_url() if $token is a URL based on the following regex: $token =~ m|[fh]tt?p://|
write_string() if none of the previous conditions matched.
Here are some examples:
$worksheet->write(0, 0, "Hello" ); # write_string()
$worksheet->write(1, 0, 'One' ); # write_string()
$worksheet->write(2, 0, 2 ); # write_number()
$worksheet->write(3, 0, 3.00001 ); # write_number()
$worksheet->write(4, 0, "" ); # write_blank()
$worksheet->write(5, 0, '' ); # write_blank()
$worksheet->write(6, 0, 'http://www.perl.com/' ); # write_url()
$worksheet->write(7, 0, 'ftp://ftp.cpan.org/' ); # write_url()The $format argument is optional. It should be a valid Format object, see "FORMAT METHODS":
my $format = $workbook->addformat();
$format->set_bold();
$format->set_color('red');
$format->set_align('center');
$worksheet->write(4, 0, "Hello", $format ); # Formatted stringIt should be noted that $row and $column are zero indexed cell locations for the write methods. Thus, Cell A1 is (0, 0) and Cell AD2000 is (1999, 29). Cells can be written to in any order but for forward compatibility it is probably best to write them in row-column order when possible.
The write methods return:
0 for success
-1 for insufficient number of arguments
-2 for row or column out of bounds
-3 for string too long.write_number($row, $column, $number, $format)
Write an integer or a float to the cell specified by $row and $column:
$worksheet->write_number(0, 0, 1 );
$worksheet->write_number(1, 0, 2.3451);The $format argument is optional.
write_string($row, $column, $string, $format)
Write a string to the cell specified by $row and $column:
$worksheet->write_string(0, 0, "Your text here" );The maximum string size is 255 characters. The $format argument is optional.
write_blank($row, $column, $format)
Write a blank cell specified by $row and $column:
$worksheet->write_blank(0, 0, $format);This method is useful for adding formatting to a cell that doesn't contain a string or number value.
write_url($row, $col, $url, $format, $string)
Write a hyperlink to a URL in the cell specified by $row and $column. The hyperlink is comprised of two elements: the visible label and the invisible link. The visible label is the same as the link unless an alternative string is specified. The alternative $string and $format are optional.
$worksheet->write_url(0, 0, 'http://www.perl.com/' );
$worksheet->write_url(1, 0, 'http://www.perl.com/', $format );
$worksheet->write_url(2, 0, 'http://www.perl.com/', undef, 'Perl home');The label is written using the write_string() method. Therefore the 255 characters string limit applies to the label: the URL can be any length. Use undef if you want to specify an alternative string but don't wish to specify a format.
activate()
The activate() method is used to specify which worksheet is initially selected in a multi-sheet workbook:
$worksheet1 = $workbook->addworksheet('To');
$worksheet2 = $workbook->addworksheet('the');
$worksheet3 = $workbook->addworksheet('wind');
$worksheet3->activate();This is similar to the Excel VBA activate method. The default value is the first worksheet.
set_first_sheet()
The activate() method determines which worksheet is initially selected. However, if there are a large number of worksheets the selected worksheet may not appear on the screen. To avoid this you can select which is the leftmost visible worksheet using set_first_sheet():
for (1..20) {
$workbook->addworksheet;
}
$worksheet21 = $workbook->addworksheet();
$worksheet22 = $workbook->addworksheet();
$worksheet21->set_first_sheet();
$worksheet22->activate();This method is not required very often. The default value is the first worksheet.
set_selection($first_row, $first_col, $last_row, $last_col);
This method can be used to specify which cell or cells are selected in a worksheet. The most common requirement is to select a single cell, in which case $last_row and $last_col are not required. The active cell within a selected range is determined by the order in which $first and $last are specified:
$worksheet1->set_selection(3, 3); # Cell D4
$worksheet2->set_selection(3, 3, 6, 6); # Cell D4 to G7
$worksheet3->set_selection(6, 6, 3, 3); # Cell G7 to D4The default is cell (0, 0).
set_row($row, $height, $format);
This method can be used to specify the height of a row. The $format argument is optional, for additional information, see "FORMAT METHODS".
$worksheet->set_row(0, 20); # Row 1 height set to 20If you wish to set the format without changing the height you can pass undef as the height parameter:
$worksheet->set_row(0, undef, $height);set_column($first_col, $last_col, $width, $format);
This method can be used to specify the width of a single column or a range of columns. If the method is applied to a single column the value of $first_col and $last_col should be the same:
$worksheet->set_column(0, 0, 20); # Column A width set to 20
$worksheet->set_column(1, 3, 30); # Columns B-D width set to 30The width corresponds to the column width value that is specified in Excel. It is approximately equal to the length of a string in the default font of Arial 10. The $format argument is optional, for additional information, see "FORMAT METHODS".
If you wish to set the format without changing the width you can pass undef as the width parameter:
$worksheet->set_column(0, 0, undef, $format);FORMAT METHODS
This section describes the methods that are available through a Format object. Format objects are created by calling the workbook addformat() method as follows:
my $heading1 = $workbook->addformat();
my $heading2 = $workbook->addformat();The format object holds all the formatting properties that can be applied to a cell, a row or a column. The following table shows the Excel format categories, the formatting properties that can be applied and the relevant object method to do so:
Category Property Method Name
-------- -------- -----------
Font Font type set_font()
Font size set_size()
Font color set_color()
Bold set_bold()
Italic set_italic()
Underline set_underline()
Strikeout set_font_strikeout()
Super/Subscript set_font_script()
Outline set_font_outline()
Shadow set_font_shadow()
Number Numeric format set_num_format()
Alignment Horizontal align set_align()
Vertical align set_align()
Rotation set_rotation()
Text wrap set_text_wrap()
Justify last set_text_justlast()
Pattern Cell pattern set_pattern()
Background color set_bg_color()
Foreground color set_fg_color()
Border Cell border set_border()
Bottom border set_bottom()
Top border set_top()
Left border set_left()
Right border set_right()
Border color set_border_color()
Bottom color set_bottom_color()
Top color set_top_color()
Left color set_left_color()
Right color set_right_color()The default format is Arial 10 with all other properties off. In general a method call without an argument will turn a property on, for example:
my $format1 = $workbook->addformat();
$format1->set_bold(); # Turns bold on
$format1->set_bold(1); # Also turns bold on
$format1->set_bold(0); # Turns bold offMore than one property can be applied to a format:
my $format2 = $workbook->addformat();
$format2->set_bold();
$format2->set_italic();
$format2->set_color('red');Once a Format object has been constructed it can be passed as an argument to the worksheet write methods as follows:
$worksheet->write(0, 0, "One", $format);
$worksheet->write_string(1, 0, "Two", $format);
$worksheet->write_number(2, 0, 3, $format);
$worksheet->write_blank(3, 0, $format);Formats can also be passed to the worksheet set_row() and set_column() methods to define the default property for a row or column.
$worksheet->set_row(0, 15, $format);
$worksheet->set_column(0, 0, 15, $format);However, the set_row() and set_column() methods will not set the format for individual cells written by WriteExcel, they only have an effect on cells written after the workbook is opened in Excel.
It is important to understand that a Format is applied to a cell not in its current state but in its final state. Consider the following example:
my $format = $workbook->addformat();
$format->set_bold();
$format->set_color('red');
$worksheet->write(0, 0, "Cell A1", $format);
$format->set_color('green');
$worksheet->write(0, 1, "Cell B1", $format);Cell A1 is assigned the Format $format which is initially set to the colour red. However, the colour is subsequently set to green. When Excel displays Cell A1 it will display the final state of the Format which in this case will be the colour green.
The Format object methods are described in more detail in the following sections. In addition, there is a Perl program in the WriteExcel distribution called formats.pl. This program it creates an Excel workbook called formats.xls that contains examples of almost all the format types.
copy($format)
This is the only method of a Format object that doesn't apply directly to a property. It is used to copy all of the properties from one Format object to another:
my $lorry1 = $workbook->addformat();
$lorry1->set_bold();
$lorry1->set_italic();
$lorry1->set_color('red'); # lorry1 is bold, italic and red
my $lorry2 = $workbook->addformat();
$lorry2->copy($lorry1);
$lorry2->set_color('yellow'); # lorry2 is bold, italic and yellowThis can be useful when you are setting up several complex but similar formats. It is also useful if you want to use a format in more than one workbook:
# Create the workbooks
my $workbook1 = Spreadsheet::WriteExcel->new("workbook1.xls");
my $workbook2 = Spreadsheet::WriteExcel->new("workbook2.xls");
my $worksheet1 = $workbook->addworksheet();
my $worksheet2 = $workbook->addworksheet();
my $format1 = $workbook->addformat();
my $format2 = $workbook->addformat();
# Create a global format object that isn't tied to a workbook
my $global = Spreadsheet::WriteExcel::Format->new();
$global->set_color('blue');
# Copy the global format properties to the worksheet formats
$format1->copy($global);
$format2->copy($global);Note: this is not a copy constructor, both objects must exist prior to copying.
set_font($fontname)
Default state: Font is Arial
Default action: None
Valid args: Any valid font nameExample:
$format->set_font('Arial');Excel can only display fonts that are installed on the system that it is running on. Therefore it is best to use the fonts that come as standard such as 'Arial', 'Times New Roman' and 'Courier New'. For examples see the Fonts worksheet created by formats.pl
set_size()
Default state: Font size is 10
Default action: Set font size to 1
Valid args: Integer values from 1 to as big as your screen.Excel adjusts the height of a row to accommodate the largest font size in the row. You can also explicitly specify the height of a row using the set_row() worksheet method.
my $format = $workbook->addformat();
$format->set_size(30);set_color()
Default state: Excels default color, usually black
Default action: Set the default color
Valid args: Integers form 8..63 or the following strings:
'aqua'
'black'
'blue'
'fuchsia'
'gray'
'green'
'lime'
'navy'
'orange'
'purple'
'red'
'silver'
'white'
'yellow'The set_color() method is used as follows:
my $format = $workbook->addformat();
$format->set_color('red');
$worksheet->write(0, 0, "wheelbarrow", $format);Note: The set_color() method is used to set the colour of the font in a cell. To set the colour of a cell use the set_fg_color() and set_pattern() methods.
For additional examples see the 'Named colors' and 'Standard colors' worksheets created by formats.pl
set_bold()
Default state: bold is off
Default action: Turn bold on
Valid args: 0, 1** Actually values in the range 100..1000 are also valid. 400 is normal, 700 is bold and 1000 is very bold indeed. It is probably best to set the value to 1 and use normal bold.
$format->set_bold(); # Turn bold onset_italic()
Default state: Italic is off
Default action: Turn italic on
Valid args: 0, 1set_underline()
Default state: Underline is off
Default action: Turn on single underline
Valid args: 0 = No underline
1 = Single underline
2 = Double underline
33 = Single accounting underline
34 = Double accounting underlineset_strikeout()
Default state: Strikeout is off
Default action: Turn strikeout on
Valid args: 0, 1set_script()
Default state: Super/Subscript is off
Default action: Turn Superscript on
Valid args: 0 = Normal
1 = Superscript
2 = SubscriptThis format is currently not very useful.
set_outline()
Default state: Outline is off
Default action: Turn outline on
Valid args: 0, 1Macintosh only.
set_shadow()
Default state: Shadow is off
Default action: Turn shadow on
Valid args: 0, 1Macintosh only.
set_num_format()
Default state: General format
Default action: Format index 1
Valid args: See the following tableThis method is used to define the numerical format of a number in Excel. It controls whether a number is displayed as an integer, a floating point number, a date, a currency value or some other user defined format.
The numerical format of a cell can be specified by using a format string or an index to one of Excel's built-in formats:
my $format1 = $workbook->addformat();
my $format2 = $workbook->addformat();
$format1->set_num_format('d mmm yyyy'); # Format string
$format2->set_num_format(0x0f); # Format index
$worksheet->write(0, 0, 36870.016, $format1); # 10 Dec 2000
$worksheet->write(0, 0, 36870.016, $format2); # 10-Dec-00Using format strings you can define very sophisticated formatting of numbers.
$format01->set_num_format('0.000');
$worksheet->write(0, 0, 3.1415926, $format01); # 3.142
$format02->set_num_format('#,##0');
$worksheet->write(1, 0, 1234.56, $format02); # 1,235
$format03->set_num_format('#,##0.00');
$worksheet->write(2, 0, 1234.56, $format03); # 1,234.57
$format04->set_num_format('$0.00');
$worksheet->write(3, 0, 49.99, $format04); # $49.99
$format05->set_num_format('£0.00');
$worksheet->write(4, 0, 49.99, $format05); # £49.99
$format06->set_num_format('¥0.00');
$worksheet->write(5, 0, 49.99, $format06); # ¥49.99
$format07->set_num_format('mm/dd/yy');
$worksheet->write(6, 0, 36870.016, $format07); # 12/10/00
$format08->set_num_format('mmm dd yyyy');
$worksheet->write(7, 0, 36870.016, $format08); # Dec 10 2000
$format09->set_num_format('dd mmmm yyyy');
$worksheet->write(8, 0, 36870.016, $format09); # 10 December 2000
$format10->set_num_format('dd/mm/yyyy hh:mm AM/PM');
$worksheet->write(9, 0, 36870.016, $format10); # 10/12/2000 12:23 AM
$format11->set_num_format('0 "dollar and" .00 "cents"');
$worksheet->write(10, 0, 1.87, $format11); # 1 dollar and .87 cents
# Conditional formatting
$format12->set_num_format('[Green]General;[Red]-General;General');
$worksheet->write(11, 0, 123, $format12); # > 0 Green
$worksheet->write(12, 0, -45, $format12); # < 0 Red
$worksheet->write(13, 0, 0, $format12); # = 0 Default colourThe colour format should have one of the following values:
[Black] [Blue] [Cyan] [Green] [Magenta] [Red] [White] [Yellow]Alternatively you can specify the colour based on a colour index as follows: [Color n], where n is a standard Excel colour index - 7. See the 'Standard colors' worksheet created by formats.pl.
For more information refer to the documentation on formatting in the doc directory of the Spreadsheet::WriteExcel distro, the Excel on-line help or to the tutorial at: http://support.microsoft.com/support/Excel/Content/Formats/default.asp and http://support.microsoft.com/support/Excel/Content/Formats/codes.asp
You should ensure that the format string is valid in Excel prior to using it in WriteExcel.
One of the most common uses of the set_num_format() is to format a number as a date. Excel stores dates as a real number where the integer part of the number stores the number of days since the epoch and the fractional part stores the percentage of the day. The epoch can be either 1900 or 1904. Excel for Windows uses 1900 and Excel for Macintosh uses 1904. However, Excel on either platform will convert automatically between one system and the other. For an example of how to convert between UNIX/Perl time and Excel time have a look at the ms_time.pl program in the examples directory of the WriteExcel distribution.
Excel's built-in formats as shown in the following table:
Index Index Format String
0 0x00 General
1 0x01 0
2 0x02 0.00
3 0x03 #,##0
4 0x04 #,##0.00
5 0x05 ($#,##0_);($#,##0)
6 0x06 ($#,##0_);[Red]($#,##0)
7 0x07 ($#,##0.00_);($#,##0.00)
8 0x08 ($#,##0.00_);[Red]($#,##0.00)
9 0x09 0%
10 0x0a 0.00%
11 0x0b 0.00E+00
12 0x0c # ?/?
13 0x0d # ??/??
14 0x0e m/d/yy
15 0x0f d-mmm-yy
16 0x10 d-mmm
17 0x11 mmm-yy
18 0x12 h:mm AM/PM
19 0x13 h:mm:ss AM/PM
20 0x14 h:mm
21 0x15 h:mm:ss
22 0x16 m/d/yy h:mm
.. .... ...........
37 0x25 (#,##0_);(#,##0)
38 0x26 (#,##0_);[Red](#,##0)
39 0x27 (#,##0.00_);(#,##0.00)
40 0x28 (#,##0.00_);[Red](#,##0.00)
41 0x29 _(* #,##0_);_(* (#,##0);_(* "-"_);_(@_)
42 0x2a _($* #,##0_);_($* (#,##0);_($* "-"_);_(@_)
43 0x2b _(* #,##0.00_);_(* (#,##0.00);_(* "-"??_);_(@_)
44 0x2c _($* #,##0.00_);_($* (#,##0.00);_($* "-"??_);_(@_)
45 0x2d mm:ss
46 0x2e [h]:mm:ss
47 0x2f mm:ss.0
48 0x30 ##0.0E+0
49 0x31 @For examples of these formatting codes see the 'Numerical formats' worksheet created by formats.pl.
Note 1. Numeric formats 23 to 36 are not documented by Microsoft and may differ in international versions.
Note 2. In Excel 5 the dollar sign appears as a dollar sign. In Excel 97-2000 it appears as the defined local currency symbol.
Note 3. The red negative numeric formats display slightly differently in Excel 5 and Excel 97-2000.
set_align()
Default state: Alignment is off
Default action: Left alignment
Valid args: 'left' Horizontal
'center'
'right'
'fill'
'justify'
'merge'
'top' Vertical
'vcenter'
'bottom'
'vjustify'This method is used to set the horizontal and vertical text alignment within a cell. Vertical and horizontal alignments can be combined. The method is used as follows:
my $format = $workbook->addformat();
$format->set_align('center');
$format->set_align('vcenter');
$worksheet->set_row(0, 30);
$worksheet->write(0, 0, "X", $format);Text can be aligned across two or more adjacent cells using the merge property. See also, the set_merge() method.
The vjustify (vertical justify) option can be used to provide automatic text wrapping in a cell. The height of the cell will be adjusted to accommodate the wrapped text. To specify where the text wraps use the set_text_wrap() method.
For further examples see the 'Alignment' worksheet created by formats.pl.
set_merge()
Default state: Cell merging is off
Default action: Turn cell merging on
Valid args: 1Text can be aligned across two or more adjacent cells using the set_merge() method. This is an alias for the unintuitive set_align('merge') method call.
Only one cell should contain the text, the other cells should be blank:
my $format = $workbook->addformat();
$format->set_merge();
$worksheet->write(1, 1, 'Merged cells', $format);
$worksheet->write_blank(1, 2, $format);See also the merge1.pl and merge2.pl programs in the examples directory.
set_text_wrap()
Default state: Text wrap is off
Default action: Turn text wrap on
Valid args: 0, 1Here is an example using the text wrap property, the escape character \n is used to indicate the end of line:
my $format = $workbook->addformat();
$format->set_text_wrap();
$worksheet->write(0, 0, "It's\na bum\nwrap", $format);Excel will adjust the height of the row to accommodate the wrapped text. A similar effect can be obtained without newlines using the set_align('vjustify') method. See the textwrap.pl program in the examples directory.
set_rotation()
Default state: Text rotation is off
Default action: Rotation style 1
Valid args: 0 No rotation
1 Letters run from top to bottom
2 90° anticlockwise
3 90° clockwiseSee the 'Alignment' worksheet created by formats.pl.
set_text_justlast()
Default state: Justify last is off
Default action: Turn justify last on
Valid args: 0, 1Only applies to Far Eastern versions of Excel.
set_pattern()
Default state: Pattern is off
Default action: Solid fill is on
Valid args: 0 .. 31Examples of the available patterns are shown in the 'Patterns' worksheet created by formats.pl. However, it is unlikely that you will ever need anything other than Pattern 1 which is a solid fill of the foreground color.
set_fg_color()
Also applies to: set_bg_color
Default state: Color is off
Default action: Undefined
Valid args: See set_color()Note, the foreground and background colours will only have an effect if the cell pattern has been set. In the most common case you can specify the solid fill pattern and the foreground colour as follows:
my $format = $workbook->addformat();
$format->set_pattern(); # Set pattern to 1, ie. solid fill
$format->set_fg_color('green'); # Note foreground and not background
$worksheet->write(0, 0, "Ray", $format);set_border()
Also applies to: set_bottom()
set_top()
set_left()
set_right()
Default state: Border is off
Default action: Set border type 1
Valid args: 0 No border
1 Thin single border
2 Medium single border
3 Dashed border
4 Dotted border
5 Thick single border
6 Double line border
7 Hair borderA cell border is comprised of a border on the bottom, top, left and right. These can be set to the same value using set_border() or individually using the relevant method calls shown above. Examples of the available border styles are shown in the 'Borders' worksheet created by formats.pl.
set_border_color()
Also applies to: set_bottom_color()
set_top_color()
set_left_color()
set_right_color()
Default state: Color is off
Default action: Undefined
Valid args: See set_color()Set the colour of the cell borders.
EXAMPLES
There are additional examples in the examples directory of the Spreadsheet::WriteExcel distro.
Example 1
The following example shows some of the basic features of Spreadsheet::WriteExcel.
#!/usr/bin/perl -w
use strict;
use Spreadsheet::WriteExcel;
# Create a new workbook called simple.xls and add a worksheet
my $workbook = Spreadsheet::WriteExcel->new("simple.xls");
my $worksheet = $workbook->addworksheet();
# General syntax is sub(row, column, token)
# Row and column are zero indexed
# Write some text
$worksheet->write_string(0, 0, "Hi Excel!");
# Write some numbers
$worksheet->write_number(2, 0, 3); # Writes 3
$worksheet->write_number(2, 1, 3.00000); # Writes 3
$worksheet->write_number(2, 2, 3.00001); # Writes 3.00001
$worksheet->write_number(2, 3, 3.14159); # TeX revision no.?
# Write numbers or text
$worksheet->write(4, 0, 207E9); # writes a number
$worksheet->write(4, 1, "207E9"); # writes a number
$worksheet->write(4, 2, "207 E9"); # writes a stringExample 2
The following is a general example which demonstrates most of the features of the Spreadsheet::WriteExcel module:
#!/usr/bin/perl -w
use strict;
use Spreadsheet::WriteExcel;
# Create a new Excel workbook
my $workbook = Spreadsheet::WriteExcel->new("regions.xls");
# Add some worksheets
my $north = $workbook->addworksheet("North");
my $south = $workbook->addworksheet("South");
my $east = $workbook->addworksheet("East");
my $west = $workbook->addworksheet("West");
# Add a Format
my $format = $workbook->addformat();
$format->set_bold();
$format->set_color('blue');
# Add a caption to each worksheet
foreach my $worksheet (@{$workbook->worksheets()}) {
$worksheet->write(0, 0, "Sales", $format);
}
# Write some data
$north->write(0, 1, 200000);
$south->write(0, 1, 100000);
$east->write (0, 1, 150000);
$west->write (0, 1, 100000);
# Set the active worksheet
$south->activate();
# Set the width of the first column
$south->set_column(0, 0, 20);
# Set the active cell
$south->set_selection(0, 1);Example 3
This example shows how to use a conditional numerical format with colours to indicate if a share price has gone up or down.
use strict;
use Spreadsheet::WriteExcel;
# Create a new workbook and add a worksheet
my $workbook = Spreadsheet::WriteExcel->new("stocks.xls");
my $worksheet = $workbook->addworksheet();
# Set the column width for columns 1, 2, 3 and 4
$worksheet->set_column(0, 3, 15);
# Create a format for the column headings
my $header = $workbook->addformat();
$header->set_bold();
$header->set_size(12);
$header->set_color('blue');
# Create a format for the stock price
my $f_price = $workbook->addformat();
$f_price->set_align('left');
$f_price->set_num_format('$0.00');
# Create a format for the stock volume
my $f_volume = $workbook->addformat();
$f_volume->set_align('left');
$f_volume->set_num_format('#,##0');
# Create a format for the price change. This is an example of a conditional
# format. The number is formatted as a percentage. If it is positive it is
# formatted in green, if it is negative it is formatted in red and if it is
# zero it is formatted as the default font colour (in this case black).
# Note: the [Green] format produces an unappealing lime green. Try
# [Color 10] instead for a dark green.
#
my $f_change = $workbook->addformat();
$f_change->set_align('left');
$f_change->set_num_format('[Green]0.0%;[Red]-0.0%;0.0%');
# Write out the data
$workbook->write(0, 0, 'Company', $header);
$workbook->write(0, 1, 'Price', $header);
$workbook->write(0, 2, 'Volume', $header);
$workbook->write(0, 3, 'Change', $header);
$workbook->write(1, 0, 'Damage Inc.' );
$workbook->write(1, 1, 30.25, $f_price ); # $30.25
$workbook->write(1, 2, 1234567, $f_volume); # 1,234,567
$workbook->write(1, 3, 0.085, $f_change); # 8.5% in green
$workbook->write(2, 0, 'Dump Corp.' );
$workbook->write(2, 1, 1.56, $f_price ); # $1.56
$workbook->write(2, 2, 7564, $f_volume); # 7,564
$workbook->write(2, 3, -0.015, $f_change); # -1.5% in red
$workbook->write(3, 0, 'Rev Ltd.' );
$workbook->write(3, 1, 0.13, $f_price ); # $0.13
$workbook->write(3, 2, 321, $f_volume); # 321
$workbook->write(3, 3, 0, $f_change); # 0 in the font color (black)Example 4
The following example converts a tab separated file called tab.txt into an Excel file called tab.xls.
#!/usr/bin/perl -w
use strict;
use Spreadsheet::WriteExcel;
open (TABFILE, "tab.txt") or die "tab.txt: $!";
my $workbook = Spreadsheet::WriteExcel->new("tab.xls");
my $worksheet = $workbook->addworksheet();
# Row and column are zero indexed
my $row = 0;
while (<TABFILE>) {
chomp;
# Split on single tab
my @Fld = split('\t', $_);
my $col = 0;
foreach my $token (@Fld) {
$worksheet->write($row, $col, $token);
$col++;
}
$row++;
}LIMITATIONS
The following limits are imposed by Excel or the version of the BIFF file that has been implemented:
Description Limit Source
----------------------------------- ------ -------
Maximum number of chars in a string 255 Excel 5
Maximum number of columns 256 Excel 5, 97
Maximum number of rows in Excel 5 16,384 Excel 5
Maximum number of rows in Excel 97 65,536 Excel 97The minimum file size is 6K due to the OLE overhead. The maximum file size is approximately 7MB (7087104 bytes) of BIFF data. This can be extended by using Takanori Kawai's OLE::Storage_Lite module http://search.cpan.org/search?dist=OLE-Storage_Lite see the big.pl example in the examples directory of the distro.
PORTABILITY
WriteExcel.pm will only work on systems where perl packs floats in 64 bit IEEE format. The float must also be in little-endian format but WriteExcel.pm will reverse it as necessary. Thus:
print join(" ", map { sprintf "%#02x", $_ } unpack("C*", pack "d", 1.2345)), "\n";should give (or in reverse order):
0x8d 0x97 0x6e 0x12 0x83 0xc0 0xf3 0x3fIn general, if you don't know whether your system supports a 64 bit IEEE float or not, it probably does. If your system doesn't, WriteExcel will croak() with the message given in the Diagnostics section.
DIAGNOSTICS
- Filename required in WriteExcel('Filename')
-
A filename must be given in the constructor.
- Can't open filename. It may be in use.
-
The file cannot be opened for writing. It may be protected or already in use.
- Required floating point format not supported on this platform.
-
Operating system doesn't support 64 bit IEEE float or it is byte-ordered in a way unknown to WriteExcel.
- Maximum file size, 7087104, exceeded.
-
The current OLE implementation only supports a maximum BIFF file of this size. This limit can be extended, see the LIMITATIONS section.
THE EXCEL BINARY FORMAT
Excel data is stored in the "Binary Interchange File Format" (BIFF) file format. Details of this format are given in the Excel SDK, the "Excel Developer's Kit" from Microsoft Press. It is also included in the MSDN CD library but is no longer available on the MSDN website. An older version of the BIFF documentation is available at http://www.cubic.org/source/archive/fileform/misc/excel.txt
Issues relating to the Excel SDK are discussed, occasionally, at news://microsoft.public.excel.sdk
The BIFF portion of the Excel file is comprised of contiguous binary records that have different functions and that hold different types of data. Each BIFF record is comprised of the following three parts:
Record name; Hex identifier, length = 2 bytes
Record length; Length of following data, length = 2 bytes
Record data; Data, length = variableThe BIFF data is stored along with other data in an OLE Compound File. This is a structured storage which acts like a file system within a file. A Compound File is comprised of storages and streams which, to follow the file system analogy, are like directories and files.
The documentation for the OLE::Storage module, http://user.cs.tu-berlin.de/~schwartz/pmh/guide.html , contains one of the few descriptions of the OLE Compound File in the public domain.
For a open source implementation of the OLE library see the 'cole' library at http://arturo.directmail.org/filtersweb/
The source code for the Excel plugin of the Gnumeric spreadsheet also contains information relevant to the Excel BIFF format and the OLE container, http://www.gnumeric.org/gnumeric
In addition the source code for OpenOffice is available at http://www.openoffice.org/
An article describing Spreadsheet::WriteExcel and how it works appears in Issue #19 of The Perl Journal, http://www.itknowledge.com/tpj/ It is reproduced, by kind permission, in the doc directory of the distro.
Please note that the provision of this information does not constitute an invitation to start hacking at the BIFF or OLE file formats. There are more interesting ways to waste your time. ;-)
WRITING EXCEL FILES
Depending on your requirements, background and general sensibilities you may prefer one of the following methods of getting data into Excel:
* CSV, comma separated variables or text. If the file extension is csv, Excel will open and convert this format automatically. Generating a valid CSV file isn't as easy as it seems. Have a look at the DBD::RAM, DBD::CSV and Text::CSV_XS modules.
* DBI with DBD::ADO or DBD::ODBC. Excel files contain an internal index table that allows them to act like a database file. Using one of the standard Perl database modules you can connect to an Excel file as a database.
* Win32::OLE module and office automation. This requires a Windows platform and an installed copy of Excel. This is the most powerful and complete method for interfacing with Excel. See http://velocity.activestate.com/docs/ActivePerl/site/lib/Win32/OLE/TPJ.html , http://velocity.activestate.com/docs/ActivePerl/faq/Windows/ActivePerl-Winfaq12.html and http://velocity.activestate.com/docs/ActivePerl/site/lib/Win32/OLE.html If your main platform is UNIX but you have the resources to set up a separate Win32/MSOffice server, you can convert office documents to text, postscript or PDF using Win32::OLE. For a demonstration of how to do this using Perl see Docserver: http://search.cpan.org/search?mode=module&query=docserver
* HTML tables. This is an easy way of adding formatting.
* XML, the Excel XML and HTML file specification are available from http://msdn.microsoft.com/library/officedev/ofxml2k/ofxml2k.htm
READING EXCEL FILES
Despite the title of this module the most commonly asked questions are in relation to reading Excel files. To read data from Excel files try:
* Spreadsheet::ParseExcel. This is a wrapper around the OLE::Storage module which makes it easy to extract data from an Excel file. http://search.cpan.org/search?dist=Spreadsheet-ParseExcel
* OLE::Storage, aka LAOLA. This is a Perl interface to OLE file formats. In particular, the distro contains an Excel to HTML converter called Herbert, http://user.cs.tu-berlin.de/~schwartz/pmh/ There is also an open source C/C++ project based on the LAOLA work. Try the Filters Project http://arturo.directmail.org/filtersweb/ and the Excel to HTML converter at the xlHtml Project http://www.xlhtml.org/
* HTML tables. If the files are saved from Excel in a HTML format the data can be accessed using HTML::TableExtract http://search.cpan.org/search?dist=HTML-TableExtract
* DBI with DBD::ADO or DBD::ODBC. See, the section "WRITING EXCEL FILES".
* Win32::OLE module and office automation. See, the section "WRITING EXCEL FILES".
If you wish to view Excel files on a UNIX/Linux platform check out the excellent Gnumeric spreadsheet application at http://www.gnumeric.org/gnumeric or OpenOffice at http://www.openoffice.org/
If you wish to view Excel files on a Windows platform which doesn't have Excel installed you can use the free Microsoft Excel Viewer http://officeupdate.microsoft.com/2000/downloaddetails/xlviewer.htm
BUGS
Orange isn't.
OpenOffice: Numerical formats are not displayed due to some missing records in Spreadsheet::WriteExcel. Someone with a good knowledge of C++ and, possibly, of German might help me to track this down in the OpenOffice source. URLs are not displayed as links.
Gnumeric: Some formatting is not displayed correctly. URLs are not displayed as links.
MS Access: The Excel files that are produced by this module are not compatible with MS Access. Use DBI or ODBC instead.
QuickView: If you wish to write files that are fully compatible with QuickView it is necessary to write the cells in a sequential row by row order.
The lack of a portable way of writing a little-endian 64 bit IEEE float.
TO DO
It is frustrating to use a program or library or module that does everything except what you want it to do. As such I am committed to adding new features to Spreadsheet::WriteExcel. If there is something that you would like to see, write and let me know. The features that are requested most will be implemented where possible. To save you some time:
* Formulas will be implemented (hopefully by early February).
* Worksheet formatting such as headers, footers, linebreaks will be implemented.
* Charts are too difficult to implement.
* Macros are undocumented.
While you are waiting try Win32::OLE.
ACKNOWLEDGEMENTS
The following people contributed to the debugging and testing of Spreadsheet::WriteExcel:
Arthur@ais, Artur Silveira da Cunha, Cedric Bouvier, CPAN testers, Daniel Gardner, Harold Bamford, Johan Ekenberg, John Wren, Michael Buschauer, Mike Blazer, Paul J. Falbe, Paul Medynski, Rich Sorden.
The following people contributed code or examples:
Andrew Benham, Marco Geri, Sam Kington, Takanori Kawai.
If you have a representative example of using Spreadsheet::WriteExcel either on its own or in conjunction with another module and would like to have it included in the examples directory of the distro please send it along.
AUTHOR
John McNamara jmcnamara@cpan.org
When the rain hit the roof
With the sound of a finished kiss
Like when a lip lifts from a lip
I took the Wrong Road round
- Grant McLennanCOPYRIGHT
© MM-MMI, John McNamara.
All Rights Reserved. This module is free software. It may be used, redistributed and/or modified under the same terms as Perl itself.
1 POD Error
The following errors were encountered while parsing the POD:
- Around line 705:
Non-ASCII character seen before =encoding in '$format05->set_num_format('£0.00');'. Assuming CP1252