Perl 创建Excel文件

Excel文件是计算机之间最常用的办公应用程序，用于通信。它被用来创建文本、数字和计算公式的行和列。它是一种发送报告的好方法。这个演示在Linux、Windows和其他平台上也可以使用。在excel中，行的编号从1到n……而列则由A、B、C等字母来标记……因此，A1指的是左上角。要用Perl创建excel文件，你可以使用padre IDE，我们也将使用Excel::Writer::XLSX模块。

Perl使用write()函数向excel文件中添加内容。

语法： write(cell_address, content)

参数：

cell_address： 要添加内容的单元格的地址。

content： 要添加到工作表中的内容。

创建一个Excel文件

可以使用Perl命令行创建Excel文件，但首先我们需要加载Excel::Writer::XLSX模块。

#!/usr/bin/perl 
use Excel::Writer::XLSX;
  
my Excelbook = Excel::Writer::XLSX->new( 'GFG_Sample.xlsx' );
myExcelsheet = Excelbook->add_worksheet();
  Excelsheet->write( "A1", "Hello!" );
Excelsheet->write( "A2", "GeeksForGeeks" );Excelsheet->write( "B1", "Next_Column" );
  
$Excelbook->close;

输出：

以下是程序的工作原理：

第1步： 加载模块Excel::Writer::XLSX。

第2步： 创建一个代表整个Excel文件的对象$Excelbook。

第3步： 调用write()方法将数据添加到工作表中。

第4步： 现在，以 .pl 为扩展名保存文件。

第5步： 在命令行上运行你的.pl文件，Excelsheet将被创建。

基本公式的使用

Excel提供了各种数学公式的使用，以方便在excel表中进行计算，如资产负债表、商业记录等。

以下是Excel的两个基本公式的描述。

• 加法：

  Excel提供了一种方法 “SUM”，用于对特定单元格的数值进行添加。

语法： =SUM(Start, End)

参数:

Start：起始单元格的地址

End：结束单元格的地址

返回：开始和结束单元格之间的数值总和。

#!/usr/bin/perl 
use Excel::Writer::XLSX;
  
my Excelbook = Excel::Writer::XLSX->new( 'GFG_Sample.xlsx' );
myExcelsheet = Excelbook->add_worksheet();
  
# Writing values at A1 and A2Excelsheet->write( "A1", 55 );
Excelsheet->write( "A2", 47 );
  
# Adding without use of SUM methodExcelsheet->write( "A3", "= A1 + A2" );
  
# Addition of a Range of cells
$Excelsheet->write( "A4", " =SUM(A1:A3)" );

输出:

• 计数：

  这个函数在Excel中用来计算给定范围内所有只包含数字值的单元格。

语法： =COUNT(Start, End)

返回：所有含有数字值的单元格的数量

#!/usr/bin/perl 
use Excel::Writer::XLSX;
  
my Excelbook = Excel::Writer::XLSX->new( 'GFG_Sample.xlsx' );
myExcelsheet = Excelbook->add_worksheet();
  
# Writing valuesExcelsheet->write( "A1", 5 );
Excelsheet->write( "A2", 40 );Excelsheet->write( "A3", "Hello" );
Excelsheet->write( "A4", 10 );
  
# Addition of a Range of cellsExcelsheet->write( "A5", "Count =");
$Excelsheet->write( "B5", "=COUNT(A1:A4)" );

输出:

在Excel表格中添加颜色

在Excel表格中可以使用颜色来分别标记特定的值。这些颜色是通过使用add_format()方法指定的。

语法： add_format(color=> 'color_name')

#!/usr/bin/perl
use Excel::Writer::XLSX;
  
my Excelbook = Excel::Writer::XLSX->new( 'GFG_Sample.xlsx' );
myExcelsheet = Excelbook->add_worksheet();
  
# Setting value of color
mycolor1 = Excelbook->add_format(color=> 'blue',);
mycolor2 = Excelbook->add_format(color=> 'red',);
mycolor3 = Excelbook->add_format(color=> 'green',);
  Excelsheet->write( "A2", "Geeks", color1 );Excelsheet->write( "B2", "For", color2 );Excelsheet->write( "C2", "Geeks", color3 );Excelbook->close;

输出：

在特定坐标处添加数值

通过提供要添加数值的单元格的地址，可以在特定坐标上添加数值。

语法： write(R,C, “value”)

参数：

R和C分别是行和列的坐标。

#!/usr/bin/perl 
use Excel::Writer::XLSX;
  
my Excelbook = Excel::Writer::XLSX->new( 'GFG_Sample.xlsx' );
myExcelsheet = Excelbook->add_worksheet();
  Excelsheet->write( 0, 0, "Hello!" );
Excelsheet->write( 1, 0, "GeeksForGeeks" );Excelsheet->write( 3, 2, "Welcome!!!" );
  
$Excelbook->close;

输出：