perl - 从perl中给定的excel数据绘制条形图

Question

从 perl Excel 数据中的给定 excel 数据绘制条形图：它每周动态变化。我想把它自动化。

================================

下面是程序：

我在 Excel 中有示例数据。数据可以是学生在每个科目中获得的姓名和分数。

我想为它绘制excel图表。

#!/usr/local/bin/perl
  print "Content-type: text/html\n\n"; 
  use strict; 
  use Win32::OLE;
  use Win32::OLE::Const 'Microsoft Excel';
  use Spreadsheet::ParseExcel; 
  use Spreadsheet::ParseExcel::SaveParser;

 my $parser   = new Spreadsheet::ParseExcel::SaveParser;
     my $workbook = $parser->Parse('Nilu.xls');

 my $worksheet1 = $workbook->worksheet('Worksheet1'); 
 $worksheet1->activate();

my ( $row_min, $row_max ) = $worksheet1->row_range(); 
my ( $col_min, $col_max ) = $worksheet1->col_range(); 

print "row min:$row_min row_max:$row_max col_max:$col_max\n\n";

    my $worksheet2 = my $parser->add_worksheet( 'Worksheet2' );

#$parser->add_worksheet( 'Worksheet2' );

$worksheet2->激活（）；

# Create a new chart object. In this case an embedded chart.
my $chart1 = $workbook->add_chart( type => 'column', embedded => 1 );


# Configure the first series.

$chart1->add_series(name => '=Sheet1!$B$1', categories => "=Sheet1!\$A\$2:\$A:$row_max", values => "=Sheet1!\$B\ $2:\$B:$row_max", );

# Set an Excel chart style. Blue colors with white outline and shadow.
$chart1->set_style( 11 );

# Insert the chart into the worksheet (with an offset).
$worksheet2->insert_chart( 'F2', $chart1, 25, 10 );

 # Write over the existing file or write a new file.
$parser -> SaveAs('Nilu1.xls');

score 0 · Accepted Answer

下面是使用 Perl 在 Excel中绘制条形图的示例。

使用 Perl 更新包含图表的现有文件并不容易（除了在 Windows 上使用 Win32::OLE），因此我建议每周生成 Excel 工作簿。

score 0 · Accepted Answer

您可以使用Spreadsheet::ParseExcel 来解析您的Excel 工作表（或将它们导出为CSV 数据，然后使用Text::CSV_XS）和例如用于绘制条形图的图表模块。

为了给出更准确的答案，我需要更多信息，特别是：

样本输入数据
示例图表
“perl Excel 数据”到底是什么意思？

perl - 从perl中给定的excel数据绘制条形图

2 回答 2

Related

Reference