HEX
Server: Apache
System: Linux s198.coreserver.jp 5.15.0-151-generic #161-Ubuntu SMP Tue Jul 22 14:25:40 UTC 2025 x86_64
User: nagasaki (10062)
PHP: 7.1.33
Disabled: NONE
Upload Files
File: //usr/local/share/man/man3/Spreadsheet::ParseExcel::SaveParser.3pm
.\" Automatically generated by Pod::Man 4.11 (Pod::Simple 3.35)
.\"
.\" Standard preamble:
.\" ========================================================================
.de Sp \" Vertical space (when we can't use .PP)
.if t .sp .5v
.if n .sp
..
.de Vb \" Begin verbatim text
.ft CW
.nf
.ne \\$1
..
.de Ve \" End verbatim text
.ft R
.fi
..
.\" Set up some character translations and predefined strings.  \*(-- will
.\" give an unbreakable dash, \*(PI will give pi, \*(L" will give a left
.\" double quote, and \*(R" will give a right double quote.  \*(C+ will
.\" give a nicer C++.  Capital omega is used to do unbreakable dashes and
.\" therefore won't be available.  \*(C` and \*(C' expand to `' in nroff,
.\" nothing in troff, for use with C<>.
.tr \(*W-
.ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p'
.ie n \{\
.    ds -- \(*W-
.    ds PI pi
.    if (\n(.H=4u)&(1m=24u) .ds -- \(*W\h'-12u'\(*W\h'-12u'-\" diablo 10 pitch
.    if (\n(.H=4u)&(1m=20u) .ds -- \(*W\h'-12u'\(*W\h'-8u'-\"  diablo 12 pitch
.    ds L" ""
.    ds R" ""
.    ds C` ""
.    ds C' ""
'br\}
.el\{\
.    ds -- \|\(em\|
.    ds PI \(*p
.    ds L" ``
.    ds R" ''
.    ds C`
.    ds C'
'br\}
.\"
.\" Escape single quotes in literal strings from groff's Unicode transform.
.ie \n(.g .ds Aq \(aq
.el       .ds Aq '
.\"
.\" If the F register is >0, we'll generate index entries on stderr for
.\" titles (.TH), headers (.SH), subsections (.SS), items (.Ip), and index
.\" entries marked with X<> in POD.  Of course, you'll have to process the
.\" output yourself in some meaningful fashion.
.\"
.\" Avoid warning from groff about undefined register 'F'.
.de IX
..
.nr rF 0
.if \n(.g .if rF .nr rF 1
.if (\n(rF:(\n(.g==0)) \{\
.    if \nF \{\
.        de IX
.        tm Index:\\$1\t\\n%\t"\\$2"
..
.        if !\nF==2 \{\
.            nr % 0
.            nr F 2
.        \}
.    \}
.\}
.rr rF
.\" ========================================================================
.\"
.IX Title "Spreadsheet::ParseExcel::SaveParser 3"
.TH Spreadsheet::ParseExcel::SaveParser 3 "2014-03-18" "perl v5.26.3" "User Contributed Perl Documentation"
.\" For nroff, turn off justification.  Always turn off hyphenation; it makes
.\" way too many mistakes in technical documents.
.if n .ad l
.nh
.SH "NAME"
Spreadsheet::ParseExcel::SaveParser \- Rewrite an existing Excel file.
.SH "SYNOPSIS"
.IX Header "SYNOPSIS"
Say we start with an Excel file that looks like this:
.PP
.Vb 8
\&    \-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-
\&   |   |      A      |      B      |      C      |
\&    \-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-
\&   | 1 | Hello       | ...         | ...         |  ...
\&   | 2 | World       | ...         | ...         |  ...
\&   | 3 | *Bold text* | ...         | ...         |  ...
\&   | 4 | ...         | ...         | ...         |  ...
\&   | 5 | ...         | ...         | ...         |  ...
.Ve
.PP
Then we process it with the following program:
.PP
.Vb 1
\&    #!/usr/bin/perl
\&
\&    use strict;
\&    use warnings;
\&
\&    use Spreadsheet::ParseExcel;
\&    use Spreadsheet::ParseExcel::SaveParser;
\&
\&
\&    # Open an existing file with SaveParser
\&    my $parser   = Spreadsheet::ParseExcel::SaveParser\->new();
\&    my $template = $parser\->Parse(\*(Aqtemplate.xls\*(Aq);
\&
\&
\&    # Get the first worksheet.
\&    my $worksheet = $template\->worksheet(0);
\&    my $row  = 0;
\&    my $col  = 0;
\&
\&
\&    # Overwrite the string in cell A1
\&    $worksheet\->AddCell( $row, $col, \*(AqNew string\*(Aq );
\&
\&
\&    # Add a new string in cell B1
\&    $worksheet\->AddCell( $row, $col + 1, \*(AqNewer\*(Aq );
\&
\&
\&    # Add a new string in cell C1 with the format from cell A3.
\&    my $cell = $worksheet\->get_cell( $row + 2, $col );
\&    my $format_number = $cell\->{FormatNo};
\&
\&    $worksheet\->AddCell( $row, $col + 2, \*(AqNewest\*(Aq, $format_number );
\&
\&
\&    # Write over the existing file or write a new file.
\&    $template\->SaveAs(\*(Aqnewfile.xls\*(Aq);
.Ve
.PP
We should now have an Excel file that looks like this:
.PP
.Vb 8
\&    \-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-
\&   |   |      A      |      B      |      C      |
\&    \-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-
\&   | 1 | New string  | Newer       | *Newest*    |  ...
\&   | 2 | World       | ...         | ...         |  ...
\&   | 3 | *Bold text* | ...         | ...         |  ...
\&   | 4 | ...         | ...         | ...         |  ...
\&   | 5 | ...         | ...         | ...         |  ...
.Ve
.SH "DESCRIPTION"
.IX Header "DESCRIPTION"
The \f(CW\*(C`Spreadsheet::ParseExcel::SaveParser\*(C'\fR module rewrite an existing Excel file by reading it with \f(CW\*(C`Spreadsheet::ParseExcel\*(C'\fR and rewriting it with \f(CW\*(C`Spreadsheet::WriteExcel\*(C'\fR.
.SH "METHODS"
.IX Header "METHODS"
.SH "Parser"
.IX Header "Parser"
.SS "\fBnew()\fP"
.IX Subsection "new()"
.Vb 1
\&    $parse = new Spreadsheet::ParseExcel::SaveParser();
.Ve
.PP
Constructor.
.SS "\fBParse()\fP"
.IX Subsection "Parse()"
.Vb 1
\&    $workbook = $parse\->Parse($sFileName);
\&
\&    $workbook = $parse\->Parse($sFileName , $formatter);
.Ve
.PP
Returns a \*(L"Workbook\*(R" object. If an error occurs, returns undef.
.PP
The optional \f(CW$formatter\fR is a Formatter Class to format the value of cells.
.SH "Workbook"
.IX Header "Workbook"
The \f(CW\*(C`Parse()\*(C'\fR method returns a \f(CW\*(C`Spreadsheet::ParseExcel::SaveParser::Workbook\*(C'\fR object.
.PP
This is a subclass of the Spreadsheet::ParseExcel::Workbook and has the following methods:
.SS "\fBworksheets()\fP"
.IX Subsection "worksheets()"
Returns an array of \*(L"Worksheet\*(R" objects. This was most commonly used to iterate over the worksheets in a workbook:
.PP
.Vb 3
\&    for my $worksheet ( $workbook\->worksheets() ) {
\&        ...
\&    }
.Ve
.SS "\fBworksheet()\fP"
.IX Subsection "worksheet()"
The \f(CW\*(C`worksheet()\*(C'\fR method returns a single \f(CW\*(C`Worksheet\*(C'\fR object using either its name or index:
.PP
.Vb 2
\&    $worksheet = $workbook\->worksheet(\*(AqSheet1\*(Aq);
\&    $worksheet = $workbook\->worksheet(0);
.Ve
.PP
Returns \f(CW\*(C`undef\*(C'\fR if the sheet name or index doesn't exist.
.SS "\fBAddWorksheet()\fP"
.IX Subsection "AddWorksheet()"
.Vb 1
\&    $workbook = $workbook\->AddWorksheet($name, %properties);
.Ve
.PP
Create a new Worksheet object of type \f(CW\*(C`Spreadsheet::ParseExcel::Worksheet\*(C'\fR.
.PP
The \f(CW%properties\fR hash contains the properties of new Worksheet.
.SS "AddFont"
.IX Subsection "AddFont"
.Vb 1
\&    $workbook = $workbook\->AddFont(%properties);
.Ve
.PP
Create new Font object of type \f(CW\*(C`Spreadsheet::ParseExcel::Font\*(C'\fR.
.PP
The \f(CW%properties\fR hash contains the properties of new Font.
.SS "AddFormat"
.IX Subsection "AddFormat"
.Vb 1
\&    $workbook = $workbook\->AddFormat(%properties);
.Ve
.PP
The \f(CW%properties\fR hash contains the properties of new Font.
.SH "Worksheet"
.IX Header "Worksheet"
Spreadsheet::ParseExcel::SaveParser::Worksheet
.PP
Worksheet is a subclass of Spreadsheet::ParseExcel::Worksheet.
And has these methods :
.PP
The \f(CW\*(C`Worksbook::worksheet()\*(C'\fR method returns a \f(CW\*(C`Spreadsheet::ParseExcel::SaveParser::Worksheet\*(C'\fR object.
.PP
This is a subclass of the Spreadsheet::ParseExcel::Worksheet and has the following methods:
.SH "AddCell"
.IX Header "AddCell"
.Vb 1
\&    $workbook = $worksheet\->AddCell($row, $col, $value, $format [$encoding]);
.Ve
.PP
Create new Cell object of type \f(CW\*(C`Spreadsheet::ParseExcel::Cell\*(C'\fR.
.PP
The \f(CW$format\fR parameter is the format number rather than a full format object.
.PP
To specify just same as another cell,
you can set it like below:
.PP
.Vb 5
\&    $row            = 0;
\&    $col            = 0;
\&    $worksheet      = $template\->worksheet(0);
\&    $cell           = $worksheet\->get_cell( $row, $col );
\&    $format_number  = $cell\->{FormatNo};
\&
\&    $worksheet\->AddCell($row +1, $coll, \*(AqNew data\*(Aq, $format_number);
.Ve
.SH "TODO"
.IX Header "TODO"
Please note that this module is currently (versions 0.50\-0.60) undergoing a major
restructuring and rewriting.
.SH "Known Problems"
.IX Header "Known Problems"
You can only rewrite the features that Spreadsheet::WriteExcel supports so
macros, graphs and some other features in the original Excel file will be lost.
Also, formulas aren't rewritten, only the result of a formula is written.
.PP
Only last print area will remain. (Others will be removed)
.SH "AUTHOR"
.IX Header "AUTHOR"
Current maintainer 0.60+: Douglas Wilson dougw@cpan.org
.PP
Maintainer 0.40\-0.59: John McNamara jmcnamara@cpan.org
.PP
Maintainer 0.27\-0.33: Gabor Szabo szabgab@cpan.org
.PP
Original author: Kawai Takanori kwitknr@cpan.org
.SH "COPYRIGHT"
.IX Header "COPYRIGHT"
Copyright (c) 2014 Douglas Wilson
.PP
Copyright (c) 2009\-2013 John McNamara
.PP
Copyright (c) 2006\-2008 Gabor Szabo
.PP
Copyright (c) 2000\-2002 Kawai Takanori and Nippon-RAD Co. \s-1OP\s0 Division
.PP
All rights reserved.
.PP
You may distribute under the terms of either the \s-1GNU\s0 General Public License or the Artistic License, as specified in the Perl \s-1README\s0 file.